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AKTUELE BIJLAGE BĲ COMMODORE DOSSIER 


COMMODORE DOSSIER IN VIDITEL 


Het heeft even geduurd, maar 
nu is het dan eindelijk zover. 
Commodore Dossier gaat in Vi- 
ditel. Op het moment dat we dit 
schrijven zijn de voorbereidin- 
gen in een laatste stadium en op 
het moment dat u dit leest, zijn 
we te raadplegen in Viditel. We 
hebben een flink aantal pagina’s 
gehuurd van informatieleveran- 
cier Videotex Buro Amsterdam, 
daar kunt u ons dus vinden. 
Het paginanummer dat u moet 
intoetsen om rechtsreeks bij ons 
terecht te komen, is op dit mo- 
ment nog niet bekend. 

Wat mag u verwachten van 
Commodore Dossier in Viditel, 
Natuurlijk zullen we toevallige 
‘binnenkomers’ uitleggen wat 
Commodore Dossier nú precies 
inhoudt en hoe men zich kan 
abonneren. Dat hoofdstuk kunt 
u als trouwe abonnee natuurlijk 
overslaan. In de rubriek ’Geach- 
te redactie’ verwachten we u wel 
te begroeten. In die rubriek 
kunt u zich rechtstreeks tot de 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave, uitsluitend voor abonnees 
van Commodore Dossier. 
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redactie wenden met vragen en 
opmerkingen. Vragen die ook 
voor andere lezers van belang 
kunnen zijn, beantwoorden we 


ter plekke, andere vragenstellers — 


krijgen persoonlijk antwoord. 
In weer een aparte rubriek kunt 
u zich tot mede-Viditel-gebrui- 
kers richten. Daar kunt u een 
advertentie kwijt of een belan- 
grijke mededeling, daar kunt u 
oproepen plaatsen. Kortom dat 
is een rubriek waar de redactie 
zich nauwelijks mee zal bemoei- 
en, tenzij om af en toe oude 
boodschappen te verwijderen, 
Een rubriek die we zeker ook 
onder uw aandacht willen bren- 
gen is ‘Volgend nummer’. Daar- 
in melden we niet alleen wat we 
voor volgende nummers van 
plan zijn, maar geven we u me- 
teen de gelegenheid om voorstel- 
len te doen. Er zijn immers vast 
wel onderwerpen waarvan u 
vindt dat ze al lang in Commo- 
dore Dossier behandeld hadden 
moeten worden. : 
Misschien wel het belangrijkste 
onderdeel van Commodore Dos- 
sier in Viditel zijn de program- 
ma’s die u zo in uw computer 
kunt laden. Tenslotte hebben we 
u in nummer 2 niet voor niets een 
Viditel-programma met down- 
loader cadeau gedaan. In deze 
rubriek treft u niet alleen pro- 
gramma's aan die al eerder in 
Commodore Dossier te vinden 
waren, maar ook bijvoorbeeld in- 
zendingen van lezers die de lang 
zijn om als listing te plaatsen. 
Niet-abonnees moeten voor deze 
programma’s een redelijk be- 
drag betalen, Voor abonnees 
zuilen de programma’s vrijwel 
allemaal gratis zijn. Dat is lo- 
gisch; onze abonnees zijn ons 
dierbaar en dus moeten ze wor- 
den voorgetrokken. 5 
Dat betekent dat er in Commo- 
dore Dossier in Viditel een 


besloten gedeelte 
is, dat alleen toe- 
gankelijk is voor 
abonnees. Om als 
abonnee onge- 
stoord in dat ge- 
deelte te worden 
binnengelaten, E 
moet u wel enige actie ondernemen. 


viditel 
ntt KEPER MUNIGabe) 


OEE Ed 


eek 


Stuurt u ons op een briefkaartje ABONNEE-NUMMER 

of in een brief: (7-cijferig nummer staat op de 
NAAM ADRES wikkel waarin Commodore Dos- 
POSTCODE EN WOON- sier wordt opgestuurd) 
PLAATS VIDITEL KLANT-NUMMER 


PROGRAMMEREN RICHTING 
LAS VEGAS 


We komen nog even terug op de vorige keer al aangekondigde pro- 
grammeerwedstrijd van Aackosoft. Inmiddels zijn de details duidelijk 
geworden. Belangrijk is in elk geval dat de inzendtermijn sluit op 15 de- 
cember aanstaande. Aackosoft heeft met de winnaars grote plannen. 


De drie beste programma’s zullen grootscheeps onder de aandacht van 





het Europese publiek worden gebracht en ook de Amerikaanse markt 
zal naar vermogen worden bewerkt, Daaraan kunnen de winnaars zelf 
trouwens hun steentje bijdragen. De hoofdprijzen bestaan immers uit 
drie reizen naar de CES in Las Vegas ( vertrek rond 8 januari 1985). 
Behalve touristische activiteiten, zullen daar voor de deelnemers ook 
enige zakelijke bijeenkomsten op het programma staan. Tijdens een 
feestelijke bijeenkomst kunnen contacten worden gelegd met enkele 
kopstukken uit de Amerikaanse software-wereld. 

Uiteraard zullen de handen wel uit de mouwen moeten. Aackosoft stelt 
zijn eisen erg hoog. Men heeft geen behoefte aan masterminds, trictrac 
en meer van dat bekends. Eventueel kunnen geniale ideeën nog wel wat 
uitgewerkt worden door de huisprogrammeurs, maar de voorkeur gaat 
toch uit naar programma’s die zo naar de winkel kunnen. De machine 
waarop en de taal waarin wordt geprogrammeerd zijn vrij, maar de 
software moet op elektronische drager worden aangeleverd en voorzien 
zijn van uitgebreide handleiding. Programma's die buiten de hoofd- 
prijzen vallen, kunnen worden uitgebracht door Aackosoft of door een 
van de vakbladen die deelnemen aan de jurering. Bij die vakbladen ho- 
ren uiteraard ook PCM en Commodore Dossier. Een en ander betekent 
wel dat deelnemers aan de wedstrijd met hun programma ook hun rech- 
ten inleveren. 

De programma’s moeten worden opgestuurd naar 

Aackosoft International BV, Postbus 3111 

2301 DC Leiden, 071-412121 

Daar zijn ook de details van de wedstrijdreglementen te Sekel bii 
de dames Marian Jongkind en Tanja Niebuhr die gezamenlijk de 
wedstrijdleiding vormen. 
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KLEUREN EN KARAKTERCODES 


Zoals we in de vorige aflevering 
al zagen, is het gebruik van ka- 
rakterstrings — strings met 'ver- 
borgen’ karaktercodes — bij- 
zonder nuttig. Uw programma's 
bevatten geen besturingstekens 
meer waardoor ze veel leesbaar- 
der worden. Daarnaast is het nu 
ook geen probleem meer pro- 
gramma’s op bijvoorbeeld een 
margrietwielprinter af te druk- 
ken, die immers geen bestu- 
ringstekens kent. 


Commodore microcomputers 
beschikken over 8 (Vic-20) of 16 
(CBM-64/128, C-16 en +4) ba- 
siskleuren. Op de CBM-64 zijn 
de kleuren als volgt ge- 


nummerd: 

0 = zwart 

1 = wit 

2 = rood 

3 = cyaan 

4 = paars 

5 = groen 

6 = blauw 

J — geel 

8 = bramje 

9 = bruin 

10 = lichtrood 
il = grijs 1 

12 = grijs 2 

13 = lichtgroen 
14 = lichtblauw 
Es S= eis 3 


Door het randkleurregister 
(53280) met één van bo- 
venstaande waarden te POKEn, 
kiest u een kleur. 


Zoals u weet, is het ook moge- 
lijk om de tekstkleur te veran- 
deren. Het vervelende probleem 
is echter dat de tekst-kleurcodes 
NIET corresponderen met de 
codes voor scherm- en 
randkleur. 


De codes voor tekstkleuren die 
door middel van karakterstrings 
kunnen worden ingesteld, zijn: 


zwart 144 
wit ZS 
rood = 28 
cyaan = 159 
paars = 134 
groen S 30 
blauw dt 
geel 8 
oranje = 129 
bruin = 149 
lichtrood = 150 
grijs Ì = ISL 
grijs 2 Ss 152 
lichtgroen = 153 
lichtblauw = 154 
grijs 3 OS 


Om de tekstkleur wit te gebrui- 
ken, toetst u dus in: print 
chr$(5). 


TIPS EN TRUCS 


Maandelijkse rubriek met korte 
nes en utilities. Popma 
essionals. Lezers helpen lezers. 


en buitenlandse pro 


Pus routi- 


viezen van binnen- 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 
BIEP 


De volgende subroutine, die 
eventueel door het gebruik van 
een verkorte ’poke’-instructie p 
SHIFT o op één regel past, 
zorgt voor een korte pieptoon. 
Als de gebruiker van een pro- 
gramma een fout maakt, kan 
hij daar door de pieptoon op 
worden gewezen. Bijvoorbeeld 
als hij een verkeerde toets in- 
drukt of als er geen schijf in de 
drive zit. 

Zoals u ziet, eindigt de routine 
met een RETURN-instructie. 
Dit betekent dat u een GOSUB 
(vanuit het hoofdprogramma) 


moet gebruiken om de routine 
aan te roepen. Uiteraard kunt u 
uw eigen regelnummers kiezen. 


CBM-64 


63000 poke54296, 15:poke54278, 


240:poke542713,80:poke54276, 17 
63001 for x= lto500:next: 
poke54267,16:return 


Vic-20 
63000 poke36878,15:poke36874, 


220 
63001 for x= 1t0500:next: 


Zoals u ziet, zijn de codes voor 
de diverse kleuren nou niet be- 
paald voor de hand liggend. We 
kunnen ze echter door middel 
van een eenvoudige program- 
meertruc voor eigen gebruik be- 
zigen. We zetten in onderstaand 
programma de ongemakkelijke 
kleurcodes (onderste tabel) om 
naar de voor de hand liggende 
getallenrij van Ô tot 15 (bo- 
venste tabel), Dat gebeurt door 
middel van de volgende regels: 


10 rem demonstratie van kleu- 
renstring 

20 dim kl$(15) 

30 for x=0 to 16 

40 read y 

50 kl$(x) =chr$(y) 

60 next x 

100 data 144,5,28,159,156,30, 
31, 158 

110 data 129,149,150,151,152, 
153,154,155 


Nu beschikken we over een ar- 
ray kl$() waarin de kleurenco- 
des zijn opgeborgen. kl$(0) 
komt nu dus overeen met de 
kleur zwart, kl$() met de kleur 
wit enzovoort. Dit werkt een 
stuk makkelijker en overzichte- 
lijker dan de kleurenstrings hier- 
boven, omdat de kleurencodes 
voor zowel rand- en scherm- 


poke36874,0: return 

Nog een paar opmerkingen. De 
lengte van de pieptoon wordt 
geregeld door het getal 500 in 
regel 63001 te variëren. Deel het 
getal door 1000 om de tijd in 
seconden te vinden. 


kleur als voor de tekst nu gelijk 
zijn. 


Het nut van bovenstaand pro- 
gramma kunnen we eenvoudig 
demonstreren. We voegen nog 
een paar regels aan het pro- 
gramma toe: 


200 print chr$(147): rem scherm 
schoon 

210 for x=l to 16 

220 print ” ”kl$(@)’’commodore 
dossier’’chr$(145) 

230 for t=l to 10O:next:next 

240 goto 210 


In regel 210 — 230 wordt de 
tekst ‘commodore dossier’ in 
één van de 16 aanwezige kleu- 
ren op het scherm gezet. Daar- 
na wordt de volgende kleur ge- 
kozen, waarna de computer de 
tekst opnieuw PRINT. 

U zou nu de ’chr$(145)’ in regel 
220 eens kunnen verwijderen. 
Nu drukt de computer de tekst 
steeds een regel lager af, zodat 
u de kleuren goed met elkaar 
kunt vergelijken. Dat is meteen 
een goede gelegenheid om de 
monitor of televisie optimaal af 
te stellen. 


De hoogte van de toon stelt u 
in door register 54273 te PO- 
KEn van 0 tot 255, voor de 
Commodore 64. In de Vic-20 
routine kunt u register 36874 
verhogen of verlagen. 


LADEN VANUIT EEN 
PROGRAMMA 


ledere Commodore-gebruiker 
weet dat het zogenaamde door- 
laden van programma’s nogal 
eens problemen oplevert. Het is 
bijvoorbeeld niet zonder meer 
mogelijk om, vanuit een pro- 
gramma, door middel van 
LOAD een ander programma te 
laden. Soms blijft de computer 
hangen, met name als het te la- 
den programma kleiner is dan 
het oorspronkelijk aanwezige 
programma. De volgende routi- 
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ne, die gebruik maakt van een 
paar trucs, maakt het doorladen 
van programma’s een klei- 
nigheid. 


CBM-64 en Vic-20 

10 printchr$(147);:rem scherm. 
schoon 

20 openl,O:print”’toets program- 
manaam in: ”sinput#l,pr$ 

30 print:print”’cassette of disk 
(e/d)” 

40 get deS:ifde8{)''c’'and Pe 





had lik in 


ede ()’'d”’ then 
40 
50 if deh="’c" thendes= "1" 
60 if des ="'d’"’ thende$ =",8"" 
70 close 1 
80 lo$=chr$(147) + ”load”’ + 
echr$(34) + pr$ + chr$(34) + des 
90 printlo$;:poke631,19: 
poke632,13:poke198,2 


In deze routine hebben we me- 
teen afgerekend met het verve- 
lende vraagteken na elke 

INPUT-opdracht. Dit doen we 


door eerst een zogenaamd 
schermkanaal te openen en 
daarna vanaf dat schermkanaal 
te lezen. Als voorbeeld geven 
we: 


10 input a : rem input met 


vraagteken 


20 open 1,0:input#l,a:close 1: 
rem input zonder vraagteken 


Vanaf nu kunt u dus in al uw 
programma’s gebruik maken 
van een INPUT zonder 
vraagteken. 


DYNAMISCHE TOETSEN 


De tweede truc die we in bo- 
venstaande routine toepasten, 


werkt iets gecompliceerder. We 
zorgen er namelijk voor dat on- 


LISTINGS VAN LEZERS 


ze computer ’denkt’ dat we een 
LOAD-instructie geven en daar- 
na op de RETURN-toets druk- 
ken, Kijkt u maar naar regel 80. 
Hierin printen we op het scherm 
een LOAD-instructie met daar- 
achter de programmanaam tus- 
sen aanhalingstekens — 
chr$(34)-. Nu komt de eigenlijke 
grap: we maken gebruik van de 
registers 631, 632 en 198. In re- 
gister 198 houdt de computer 
bij hoeveel toetsen er zijn inge- 
drukt en nog niet afgehandeld. 
De ASCII-waarden van deze 
toetsen worden bewaard in de 
registers 631 tot en met 640. We 
zetten 198 op 2, zodat de com- 
puter ‘denkt’ dat we twee toet- 
sen hebben ingedrukt. De 


ASCIHI-waarden van deze toetsen 
home’ en 'RETURN?, respec- 
tievelijk 19 en 13) zetten we in 
631 en 632. Na het beëindigen 
van het programma vindt de 
computer dus nog iets in de 
toetsenbordbuffer. Eerst wordt 
door middel van ’home’ de cur- 
sor boven in het scherm gezet 
(op de regel met de laadinstruc- 
tie) en daarna wordt er als het 
ware op RETURN gedrukt, zo- 
dat de computer de regel gaat 
uitvoeren. Het gevolg is dat het 
door ons gevraagde programma 
wordt ingeladen. 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De Anns bij voorkeur inzenden op schijf of cas- 


sette, zodat we zeker weten dat ze "lopen’. Gedrukte programma’s moeten in 


elk geval van characterstrings in plaats van 


besturingstekens zijn voorzien. De beste dane uit deze rubriek kunnen in AR komen om door COMMODORE DOS 
„be t 


SIER in samenwerking met een software 


rijf commercieel op de markt te worden gebrac 


„In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


HOGE RESOLUTIE 


Een machinetaalprogramma van 
Sybert Stroeve uit Deventer, dat 
het werken in Hoge Resolutie 
makkelijk maakt. Het definiëren 
van achtergrondkleur en teken- 
kleur, punten en lijnen tekenen 


100 
110 
120 
130 
140 
150 
160 


en het terugkeren naar het nor- 


male tekstscherm, het hoeft alle- 


maal geen probleem te zijn. 


Hoe de functies werken wordt 
duidelijk gemaakt in de REM- 


statements van het Basic- 
gedeelte van de listing hieron- 
der. Dat Basic-programma 
plaatst de machinecode in het 
geheugen van $c680 tot en met 
$cO25. 


rem Akkkhknkkkt nk kkkkknkkkkhkkkkk shiftd/<spatiedci 
rem kkkkkAAkhoge resolutiekkkkkkkka<shiftd/<spatie>8d 
vem kkk ANR hhh kkktkkkkkkkkCshiftd/Cspatieddd 
remíshift>/&spatie>Od 

rem programmeur: €shiftd/<spatie>62 
rem sybert stroeveXshift>»/<spatie>5e 


Nota Bene: een notitie als 
’sys50816,achtergrond, teken- 
kleur’ betekent dat in plaats van 
'achtergrond, tekenkleur’ twee 
getallen tussen OQ en 15 moeten 
worden ingevuld. 


rem Koperwiek 1OCshiftd/Cspatie>7d 

rem 7423 ea deventer<shift»/<spatie>3c 
rem<shift»/<spatie>3b 
rem 
reméshift>/<spatied47 
ren commando’s{shift>/<spatied2i 

rem <shift»>/&spatie>53 
rem<shiftd/C<spatied69 

vem sys508l6,achtergrond,tekenkleur<shiftd/{spatie>5d 
rem Kleur: O-15<shift>/{<spatie>13 

rem functie : veeg hires schoon,{shift>/<spatie>98 

rem geeft het een kleurtje en gaat{shift>/<spatie>c4 
rem er naar toe.<shift>/{spatieded 

rem trtttttedttttedtbthttttettttttteshiftd/Cspatie>87 
rem sysS084d,achterkleur,tekenkleur<shiftd/<spatied9e 
rem Kleur: O-15{éshiftd>/Cspatie>de 

rem functie : geeft hires een kleur-<shift»/{spatie>84 
rem tje en gaat er naar toe.{€shiftd/<spatiedfc 

ren tittttttttttttetttththttttttttteshiftd/Cspatiedf1 
rem sys BOB91Lshiftd/Cspatie>be 

rem functie : naar hires{shiftd/{spatiedc3 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


<shift>/{spatiedlic. 
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370 
380 
890 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
1000 
1010 
1020 
1030 
1040 
gl=a 
1050 
qr=a 
1060 
1070 
1080 
1090 
1100 
{110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 





VEN HALAEAEE EREA EEE Edet Cshiftd/<spatie>d7 
rem sys SO923shiftd/{spatie,96 
rem functie : haar het normale{shift»/{spatie»67 
rem tekstscherm.{shiftd/{spatied6f 
rem Atttdtdtttttttttetttttttttttttteshift,/<spatuter3f. 
rem sys 51065,x,y,s{shift»/<spatie>3a 
rem functie : tekent het punt (x,y){<shiftd/{spatie>33 
rem indien O£s<256 en veegt het{Xshift»/{spatie»72: 
rem punt (x,y) weg als s=0.Xshlift»/{spatie)04 
vem FAAAAAAAAAAEt Edd eshiftd/CspatiedG9 
rem sys S1098,xl,yl,x2,y2,s<shift»/{<spatie>d4b 
rem functie : tekent een lijn van<shift»/<spatie»0l 
rem punt (xl,yl) naar punt (x2,y2).{shift»/éspatie>56 
rem s=Ô ruit „ O{s<256 raan{shift>/{<spatied5c 
reméshift>/<spatie>70 
rem <shift>/<spatieò85 
reméshift>/<spatied9f 
rem bit map z S6OO00=-S7ffFSshiftd/éspatiedf2 
rem color memory : $5cO0O=$5fff<shift>/éspatiede5 
vreméshift>/<spatie>bd 
vem soneeenencnmesenmen. aanne <shift>/{éspatie»9a 
reméshiftd/<spatie>c9 
vremtshift>/<spatie>c3 
rem lader<shift>/{éspatie)3a 
for i= 50816 to 51493shiftd/{spatied2f 
read qp$<shift>/<éspatie>S5d 
qis=left$(qgps,id:grs=rightsCtgps, ID Sshiftd/<spatie>27 
ql=vallqgl$):if ql=0 and ql$*0O"then 
sc{ql$)=-55<shift»/<spatie,9l 
qgr=vallgrsh:if qr=0 and qrsO*0" then 
sc{qr$)-55<shift>/<spatie>9b 
gp=qglkl6+gr:poke i,qp<shiftd/{<spatie>45 
next l:send<shift>/{éspatie>5b 
rem data hoge resolutiecshift}/€spatiebec 
data a9,00,85,fb,a9,60,85,fc,a9,0OLshift>/{spatied96 
data a0,00,91,fb,c8,d0,fb‚,a6,fc,eOtshift>/{spatie>96 
data 7f,f0,05,e6,fc,4c,8a,c6,20,fdéshift>/Xspatiedf2 
data ae,20,9e,b7,86,fd,20,fd,ae,204shift>/<spatiedce 
data Je,b7,8a,0a,0a,0a,0a,05,fd,a2tshift>/<spatiedc5 
data 00,86,fb‚,a2,5C,86,fc,a0,00,914shift>/{Xspatieda2 
data fb,‚c8,d0,fb,a6,fc,e0,5f,f0,05<shift>/{spatie>dd 
data e6,fc,4c,b9,c6,ad,02,dd,09,03Cshift>/{spatie>21 
data 8d,02,dd,ad,00,dd,29,fc,09,02{shift>/{spatie>47 
data 8d,00,dd,a9,78,8d,18,d0,ad,1i{shift>/{Xspatie)>38 
data d0,09,20,8d,11,d0,60,ad,02,ddéshift>/{spatie>7b 
data 09,03,8d,02,dd,ad,00,dd,29,fc{shift>/{spatie>64 
data 09,03,8d,00,dd,ad,11,d0,29,df&shift>/<spatie>if 
data 8d,11,40,a9,14,8d,18,d0,60, 20{shift>»/{4spatie»lf 
data fd,ae,20,eb,b7,86,fb,8a,29,f8éshift>/<Cspatie>15 
data 85,b7,a9,28,85,ba,a9,00,85,b3lshift»/Xspatie>79 
data 85,bb,85,bc,a0,08,46,b7,90,0déshift>/{spatie)>3b 
data a5,bb,18,659,ba,85,bb,a5,bc,65<shift»/{spatied4l 
data b9,85,bc,06,ba,26,b9,88,d0,e8éshiftd/{spatie»59 
data a9,60,18,65,bc,85,bc,a5,fb,29<shift)>/Xspatieda8 
data 07,18,65,bb,85,bb,a9,00,65,bc{shift>/<spatie)da 
data 85,bc,a5,14,29,f8,18,65,bb,85(shift>»/Cspatie>bl 
data bb,a5,15,29,01,65,bc,85,bc,a9{shift>/{spatie>b8 
data ff,‚45,14,29,07,aa,e8,a9,00,38Cshift»/{spatie>84 
data 2a,ca,d0,fc,85,fd,a0,00,60,204shift»/<spatiede2 
data Ob,c7,20,fd,ae,20,9e,b7,8a,fOlshift>/éspatie>90 
data O7,bl,bb,05,fd,9l,bb,60,a9,ffXshift>/Xspatiedeg 
data 38,e5,f4,85,fd,bl,bb,25,fd,9igshift»/{spatie>f2 
data bb,60,20,fd,ae,20,eb,;b7,86,02<shift>/{spatied8e 
data a5,14,85,03,a5,15,85,04,20,fd{shift>/{<spatie>c8 
data ae,20,eb,b7,86,fb,ad,14,a5,15{<shift>/<spatiedba 
data 20,91,b3,20,0f,bc,a4d,03,a5,;04<shift>/<4spatiejda 
data 20,391,b3,20,53,b8,20,2b,bc,85<shift»/<spatie>53 
data fe,20,58,bc,20,aa,bl,8c,34,08{shift»/<spatie>25 
data 8d,35,03,a9,00,ad,fb,20,91,b3dshifts/éspatie>37 
data 20,0f,bc,a%,00,a4,02,20,91,b3lshift>/<spatie>Ob 
data 20,593,b8,20,2b,bc,8d, 36,03, 2OSshift>/Sspatie,/5 
data 58,bc,20,aa,bl,8c,37,03,20,914shift>/{spatied15 
data b3,20,c7,;bb,ac,34,03,ad,35,034shift>/<spatie,15 
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1480 data 20,91,b3,a9,5c,a0,00,20,5b,bo{shift>/{&spatie>l2 
1490 data f0,02,10,ta,ad,37,03,8d,38,03{<shift»/<spatie»0b 
1500 data a9,00,8d,39,03,ad,34,03,8d,3a<shift>/<spatie>74 
1510 data O3,ad,35,03,8d,3b,03,4c,45,c3Cshift)»/Cspatie>dc 
1520 data ad,34,03,8d,38,03,ad,35,03,8d(shift»/<spatie»53 
1530 data 39,03,ad,37,03,8d,3a,03,a9,00sshift»/<spatie»2Ze 
1540 data 8d,3b,03,a9,00,8d,e0,cf,8d,elgshift»/<spatiejdf 
1550 data cf‚18,ad,39,03,6a,8d,e3,cf,adéshiftd/{<spatie»da 
1560 data 38,03,6a,8d,eZ,cf,20,fd,ae,20{shift»/{spatiedc6 
1570 data Je,b7,3e,ed,cf,a5,03,85,14,aB{shiftd/Cspatie>80 
1580 data 04,85 ,15,a6.,02,20,il,e/,ad,edfshift»/{spatie,ff 
1590 data cf,‚20,83,c/,ad,e0,cf,cd,38,034shift»/<spatie>gd 
1600 data d0,09,ad,el,cf,;cd,39,03,d0,01l{<shift»/<spatie»9b 
1610 data 60,a5,fe,85,b7,ad,36,03,85,b8{shiftd/{spatie>ge 
1620 data 18,ad,3a,03,6d,e2,cf,8d,e2,cf{<shiftd/{<spatie>Be 
1630 data ad,3b,03,6d,e3,cf,8d,e3,cf,ac{shiftd»/{<spatie>8c 
1640 data e2,cf,20,91,b3,20,c7,bb,ac,38<shift»/{spatie>b7 
1650 data 03,ad,39,03,20,91,b3,a0,00,a9tshiftd/{spatie>a6 
1660 data 5c,20,5b,be,c4,0l,f0,16,38,adgshift>/Cspatie,d3 
1670 data e2,cf,‚ed,38,03,8d,e2,cf,ad,e3éshifts/<spatie»29 
1680 data cf‚ed,39,03,8d,e3,cf,4c,f8B,c8Cshift»/{<spatie>49 
1690 data ad,39,03,cd,35,03,d0,08,ad,38{<shift»/{spatied4f 
1700 data 03,cd,34,03,f0,04,a0,00,84,b7{shift»/é<spatied77 
1710 data ad,38,03,cd,37,03,f0,04,a0,004shift»>/éspatie>09 
1720 data 84,b8,a5,b7,f0,18,30,09,e6,03<shiftd/<spatie>63 
1730 data d0,12,e6,04,4c,14,c9,38,2a5,03Xshift>/éspatiedif 
1740 data e9,01,85,03,a5,04,e9,00,85,04<shiftd/<spatied13 
1750 data 18,4a5,02,65,b8,85,02,ee,e0,cf{shift»/éspatie)06 
1760 data d0,03,ee,el,cf,4c,65,c8{shift»/<spatie>40 


ETIKETTEN 


Een programma om etiketten af regels per afdruk’ en het ‘aantal regel van de printer kunnen. geten zijn adres te vermelden. 


te drukken van Arthur Kluit- afdrukken’ spreken voor zich- ’Verticale afstand tussen de eti- Wij hopen dat hij dat alsnog 
mans uit Haaren in Noord- zelf. Met Maximaal afdrukken _ ketten’ slaat op de regels tussen wil doen in verband met zijn 
Brabant. Het programma stelt achter elkaar’ bedoelt de maker twee etiketten. rechtmatige beloning. 

een viertal vragen. Het ’aantal het aantal afdrukken die op een Helaas is de heer Kluitmans ver- 


ETIKETTEN 


Fem dkkkkkkkkkkkkkkikkkkkkikkkkikishift>/ispatle>a5 
rem kx etiketten drukken kkkCshiftd/<spatied9h 
rem #*k door arthur kluitmans xk&{shift»/<spatledcd 
rem XXX haaren (n.b.) kkk{shiftd/{<spatie»90 
vem kkkkAAAAAAAAKKI AAA KAAK AKAKK(Shiftd/CSpatiedal 
poke53280,0:poke53281,O:printchr$(i4)ichr#C147) <shift>/<spatie>91 
printtab(7)dichr$(18)5" (4 ETIKETTEN DRUKKEN >>)"schr$&(146){shift>/<Sspatiedl4 
print:sprint:input”Aantal regels per afdruk”sreg<shift»/<spatie»lc 
print:input"Aantal afdrukken:"safd{shift>/{<spatie>94 
print:input“Maximaal afdrukken achter elkaar:”smax{<shiftd/<spatie>90 
print:input”Vertikale afstand tussen etiketten:";sva:print{shift>/{<spatied7a 
sp=int(80/max)Cshift>/{<spatiedff 
print"LET OP !! Een regel mag max.”"ssp<shift»/<spatie>c9 
print"karakter(s) bevatten.":printéshift>/{4spatie>6l 
fora=ito2000:nextasprintchr$(147):print:printé<shift>/<spatie»45 
dimkar$(1i000):st=1:z=0O:forr=itoregsshiftd/{spatied64 
print"Regel"irs"==d "sCshift>/<spatie>27 | 
ift<ithent=l:zZ=0<shift»/<spatiedde 
getkar$(t):ifkar$(t)=""theni7<shift»/éspatiedil 
ifkarsCt)=chr$Ci3)thenprint:print:t=tt+l:z=0:goto24<shift»/<spatiedle 
printkar$(t)s<shift»/<spatie>9f 
ifkar$Ct)=chr$(20lthent=t-2:2z=zZt2<shiftd/<spatie>5d 
zeztirifzdspthen:printiprintiprintsprint'De regel is te lang !!!itetsatii2=0 
:gotol6<shift>/{<spatieda3 
23 t=t+l:gotol7<shift>/<spatie>8b 
24 nextr<shift>/{<spatie>c8 
25 printchrsCl47):print:sprint:print"Wilt U een proefdruk {j/nd: "s{<shifth/{spati 
e>84 
26 getpr$:ifpr$=""then26{shift>/Cspatie)ib 
27 printchr$(157)ipr$s<shift»/<spatie»51 
28 ifpr$="n"orpr$="j"thengoto36{shiftd/{spatied08 
29 goto26<shift>/<spatied90 


OMO JAT RE WID 
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print:print:print'Is de proefdruk goed <j/nd: “s<shift>/<spatie>5b 

getpré:sifpré=""then3igshiftd/&4spatie>18 

printehr#(157)ipr$iCshift»/<spatie>Ga 

ifpr$="n"thenrun{shift>/{spatie>sd 

ifpr$="j"thenpr$="";goto36{<shiftd/<spatiedf2 

goto3l4shift>/Cspatieda8 

print:printsprintsprint Druk een toets voor afdrukken! !"<shift)>/{Xspatie>ca 

getst$:sifst$=""then37Xshift>/<spatie>24 

goto45éshift»/{<spatiedae 

printsprintsprint"Wilt U nog meer etiketten afdruk- ken ££j/n,: Tacshift 
>/<spatieda3 

getma$:ifma$=""thend0<shift>»/<spatie»29 

printchr$(157)imasi{<shiftd/Cspatie>6d 

ifma$="j"thenrun<shift>/<Xspatie>5c 

ifma$="n"thencloselzend{shiftd/Xspatie>f8 

goto4O<shift»/<spatiedal 

rem kkk proefdruk + afdrukken #xx<shiftd/Cspatie>80 

t=el:forr=litoreg:swr$(rd=""Cshifts/Cspatie>9d 

ifkars{(t){hchrsCldthen4Ishift>/Sspatiedel 

t=ttieinextr:gotoBl{shift>/<spatied44 

wrs Crdewrs(r)tkars(t)Cshiftd/{<spatie>00 

t=ttligoto47<shift>/<spatiedab 

openl,4,7:ad=afdimx=max{<shift>/<spatie>99 

ifpr$="j"thenafd=l{shift>/<spatie>06 

forr=ltoreg{shift>/<spatie>91 

ifafdmaxthenmax=afd{shift>»/{<spatie>lb 

fora=ltomax<shift»/{&spatie>84 

print#l,wrs(rdispelsprlentwr$trdddisnexzta:print#igshift>/Cspatie>32 

nextr<shift>/{spatiede9 

ifva=Othen60{<shiftd/{éspatie>85 

forv=ltova:print#lsnextv<shift>/{Xspatiedal 

afd=afd-max<shift>»/{spatie>71 

ifafd{<=Othen64<shift>/<spatiedel 

ifafd>maxthen53shift>/<spatie>b2 

goto53<shift>/<spatie>b0 

ifpr$="j"thenpr$="":max=mxtafd=adsclosel:goto30Xshift>/{Xspatie>3a 

goto39shiftd/<spatiedc2 


HUISRAAD INVENTARIS 

Van Henri Schuerwegen uit Put- boedel. Het kan bijvoorbeeld 

te in België ontvingen we het van pas komen voor de inboe- 
volgende programma dat een delverzekering of ter controle na 
keurige inventaris maakt van de inbraak en diefstal. 


10 printchr$(147)<shift>/{spatie>67 

90 clr<shift»/<spatiedc6 

100 dima#(100),b#ClOO),e4(10O0),dECLOON ses (100), £$CLOON,gFLLOON,NECLOO), 18 C1OON ES 
hift>/<spatiedb7 

110 dim dos(24):forx=lto2d:dos(rdedoklx-idtchrsl1i7):inextishift>/Xspatiedc2 

120 rv$=chr$CI8):toffs=chr$(146) Cshiftd/{spatie)33 

130 printchr$(147):printrvs” huisraadinventar i Ss “<shift>»/<sp 
atie>7a 

132 print:print:print”ontworpen door : henri schuerwegen c 84" <shift>/{spatie>26 
136 z=O:printtab(10)do$(2Irv$"menu"{shift>/<spatie>57 

140 printdo#{2)rv$"l,"off$” invoeren gegevens "<shiftd/&spatie>51 

145 printdosClòrvé"2,"off$"aijzigen gegevens" <shift>»/Xspatie>c5 

150 printdos(l)rv$"3."off$" save data” {shiftd/Xspatie>57 

155 printdosCi)rv$"4."off$" laad data”{<shift>/Xspatie>54 

160 printdos(i)rv$"5."off$" uitprinten s/p"<shift>»/Xspatie>48 

165 printdo$(l)rv$"6."off$" einde "<shift>/{spatie>33 

180 printchr$(19)dos(22):printtabllOdchrs(18)"uw keuze a.u.b."*chrs(146)s<shift>/ 
<spatie>da 

182 inputz:ifz<iorzd6thenl80Xshift»/{spatie>df3 

„188 on zgoto600, 2000, 3000, 4000,5000,60004shift»/{spatiede2 

600 gosub 1O10Sshift>/<spatie>d7 

610 goto 11954shift>/{spatiede5 

1000 printchrs(147):printtabl10)"invoer van gegevens"{shift>/Xspatie>f0 

1002 fori=ltol9:printtabll0)"=-"ssnext{<shift>»/{<spatie>88 

1005 return{shiftd>/Cspatied60 

1019 gosub 1OOOSshift>/<spatie>7d 
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1020 printchr${19)dof5)rv#" toestel "chr$(146)":"Cshift>/<spatie>0c 









1030 printchr$C18) "merk “chr$(146)":"<shift»/{spatiedaa 
1040 printchr$C18) "type “chr$(146)”:"<shift>/<spatie>b5 
1050 printchr$(18)"fabricagenr. “chr$(146)":"<shift>/{spatiedch 
10609 printchr$(18) "verkoper *chr$C146)”":"Cshift»/<spatie>9b 
1080 printchr$(18)"faktuurnr “*chr$(14e)":"<shift»/{spatiedf3 











1090 printchr$(18)”"aankoopdat "chr$t146)":"<shift>/Sspatiedfb 

1100 printchr$(18) bedrag incl t'chr$(146)":"{Cshiftd/<spatie>9da 

1120 printchr$(18)"bijzond.Kenm."chr$(146)":"{(shift»/{spatiedae 

1130 printtab{2z0ìchrstt8)chrs(17d ‘nummer: tchr&Ci4G)Sshiftd/{spatiedb3 
1140 printtabl03)sdos(2)rvs"h u israa d inven tari s"<shift»/<spatie 
»51 

1142 printdos(3)"ontworpen door : “chr$(18)"henri schuerwegen cB4"<shiftd/{spat 
ied02 

1180 return<shiftd/{spatie>16 

1195 Kk=K+isi=k{éshift>/<spatie>0c 

1197 gosub 1198:gotoll95shift»/Cspatie>da 

1198 gosub8000:printchr$(19)dos15)stabl35)sigshiftd/<spatiedad 

1200 printchr$(19)dost5)stabl14)s:inputafC(ijshift>/CspatiedeS 

1204 if asCij="k"thenk=k-l:igoto 130{shift>/<spatie>80 

1210 printtab(t4)s:inputb$Cijtshift>/{spatie»02 

1211 if b$Cij=""thenb$(ij="0"(shiftd/<spatieda3 

1220 printtab(14)s:inputc$Ci)4shiftd/<spatie>7d 

1222 if c$(i)=""thenc$(ij="0"C<shift>»/<spatie>de 

1230 printtab(14)s:inputdsCij<shift>/{spatied70 

1232 if d$Cij=""thend$(ij="0"Cshift>/<Xspatie,c8 

1240 printtabCli4)i:inpute$Cij<shift>/{spatie>67 

1242 if e$Cij=""thenes(ij="0"Cshiftd/Cspatiedc2 

1250 printtab(i4)s:inputfs(ijgshift>/{spatiedse 

1252 if f$Ci)=""thenfsCij="0O"<shiftd/{spatiedfc 

1260 printtabll4)s:inputgs(idéshift»/{spatie>5! 

1262 If gfCIj=""thengsCi)="0"Cahiftd/éspatiedf6 

1270 printtabCi4)s:inputh$Cij<shift>/{spatied44 

1272 If h$Cij=""thenh$(ij="0"éCshiftd/4spatiede0 

1290 printtab(i4)s:inputisci)éshift>/{spatie>b8 

1292 if i$Cid=""thenisCij="-"(shiftd/<spatie»08 

1294 return<shift»/<spatie>85 

1300 goto 1195<shiftd/4spatie>9d 

2009 printchr$C147)<shift>/<spatie>ba 

2010 printtab({08)"wijzigen van een record":fori=lto23:printtabl08)"-"s:inext{<shif 
t>/{spatiedac 

2015 i=0<shift»/<spatie»l3 

2020 printchr$(19)dofl4) "welk nummer wijzigen s"szinputigcshift>»/<spatie>6b 

2022 if i=0 then 130sifi>kthen2020<shift>/éspatied9l 

2040 printchr$(147):sprinttabl0B)chr$(18) wijzigen van een record":gosubi020 :gos 
ubi198{shift»/{spatie>4f 

2060 goto130Xshift»/<spatie»bf 

3000 printchr$(147):printtab(08) “save data op cassette of disk “{shift»/éspati 
edef 

3010 for i=ito29:printtab(08)"-"s:next{shiftd/<spatie>a2 

3012 printchr$(19)dosC3lXshiftd/<spatie»85 

3015 input”cassette (1) of disk(2)"sa{shift»/{spatiedde 

3020 if a{dland a{>2Zthen3030<shift>/<spatie>47 

3030 if a=2 then goto3070{shift»/{spatie>bd 

3035 printchr&(19)dos(6)Xshiftd/Sspatieddf 

3040 input”welke file naam:"sf$:openl,l,l,f#{<shift»/{<spatie>82 

3050 goto 3080Xshift>/{spatie>63 

3065 printchr$(19)dosC3)Cshiftd/<spatie>b8 

3070 input“welke file naam:"s;f$:openl,8,2,"@0:"+f$+"s,w"<shift>/{spatiedf4 

3080 printdo$(4)"ik schrijf data weg !!!!!"Cshift»/<spatiedae 

3081 print#l,k:fori=itok:print#l,a$Cid:print#l,b$Ci):print#l,csCijshiftd/{spati 
e>c6 

3082 print#i,dsCid:print#l,esCid:print#t,f$Cid:print#l,gsCid:print#i,hsCijshift 
>/{<spatieha7 

3086 print#l,i$Ci):snexticshift>/{<spatie»53 

3092 closelsigotol304shift»/{<spatie>08 

4000 printchr$(147):printtab(05)"laad data van cassette of disk”"<shift>»/<spatie 
291 

4005 for i=ito30:printtab(05)" _"s:next{shiftd/{éspatied50 

4007 a=0Xshift>/<spatie>6b 

4010 printchr$(19)dof(4)"cassettell) of disk (2)"s1inputalshift>/{<spatie>lO0 
4014 if a{dlanda{>2thend0oMshiftd/<spatied25 

4018 if a=2then4070{shift>/{<spatie»53 
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4020 printdos(3) "welke file naam :"s:inputfStopenl,1,0,f${Xshift>/{spatiedd4d 
4030 goto 4080Cshift»/<spatie>34 

4070 printdos(3)"welke file naan tssinputf$sopenl,8,2,"0:"+f$t"s,r"(shift>/{spa 
tie>33 

4080 printdos(3)"ik lees data !!!!! even geduld !!!!"{shift>/Xspatied54 

4084 input#l,k:fori=ltok<shift>/{spatie>b7 

4086 input#l,as(i),bsCid,cslid,dsCij,esCin,f$CiJ,gsCij,heCiD, isCi)Cshift>/<spati 
e>dd 

4090 next i:closel:gotol30Xshift>/{spatie>l4 

5000 printehrsCl4J)iprintehersl18)tu itprinte n., <shift»/<spatie>86 
5010 printdosC2)“output naar : "rvS"scherm"affs" (1) “rv$'printer"offs" (2)"Csni 
ft>/<spatie>7a 

5020 input béshift>/Cspatie>48 

5030 if béòland b<»2then5000Xshift>»/{spatie>30 

5040 if b=2 then goto 5500{shift»/Xspatiedc4 

5050 printehrs&(l47)Xshift>/Sspatiedcd4 

5055 printtabllOdchr$(18)"u i t pr inte n"Xshiftd>/{spatied43 

5060 gosubliO20Xshift>/<spatie>59 

5070 for i=ttok{shift»/Cspatie>79 

3079 printchr$Cl9dldof15)stabl35)dsilshift>/éspatie>7c 

5080 printchrs(19)doft5)stabliddsaslintshiftr/Cspatied>25 

5082 printtab(l4)sb$Cijshift>/{spatiedca 

5084 printtabll4dicsCijtshift>/<spatiedcd 

5086 printtab(i4)sd&CijSshift>/Xspatiedc8 

5090 printtabll4jsesCijtshift)»/Cspatie>f5 

5092 printtabCl4dsfsCijshiftd/CspatiedfO 

5094 printtab(id4)igsCijtshift>/Cspatie>f 3 

5096 printtab(14)s h$Ci)<shift>/{spatie>f2 

5098 printtab(14)sisCijtshift>/Cspatie>f1 

5100 printchr$(17);s "druk “chr$Cl8)return"chr$(i46)Xshift>/{spatie>85 

5105 get y$<shift>/{<spatie>3e 

5108 If y$=chr$(13)then goto 5200{shift>/{spatie>de 

5110 goto 5105<shiftd>/Cspatied6d 

9200 gosub 8000:nextéshift>/Cspatie>79 

5250 goto 130<shift>/{spatie>2d 

5500 open3,4<shift>/<spatieddd 

5505 t#=chr$Ci6)Cshift>/Sspatie>97 

5510 print#3,chr$C18)"huisraadinventaris"s:print#3,chr$C(146) séshift>/<spatie 
285 

SBIl print#3,* ontworpen door << henri schuerwegen >> G 84”<shift»/<spati 
e>34 

9512 print#3,chr$CiO)Xshift>/Cspatieddd 

5515 fori=ltokéshift>/Xspatie>3a 

































































5550 print#3,t$"OOtoestel s"sasCids:iprint#3,t$”" 44merk :’3b$Cijshif 
t>/{<spatiedf8 

5560 print#3,t$“OOtype s"sC$Cidstshiftd/Cspatie>57 

5570 print#3,ts"44fabricagenr. :"s;d$Ci) :print#3,t$"OOverkoper sSsesCids<shif 
t>/<spatie>99 






5575 print#3,t$”44faktuurnr. stifsCijSshift>/<spatie>56 

5580 print#3,t$"OOaankoopdat :"sg$Cids:print#3,t$"4dbedrag inc t :"sh$Cijtshift 
»/<spatiedfd4 

5585 print#3,t$"OObijzondere opm:"sisCidlshift>/Cspatie>69 

5587 ford=lto80:print#3,““srinext d<shift>/&spatie>96 

5590 print#3,chr&(lO):nextéshift>/<spatie>3b 

5595 close3:gotol304shift>/{spatie>ddc 

6000 printchr$(147)"heb je data weggeschreven (j/n) "s:input w$<shift>/Xspatie 
je2 

6010 if w$<>”"n'and w$<d"j"then GOOOSshift>/{spatiedec 

6020 if w$="n"thengoto 3000Cshift>»/{spatie>ba 

6030 end{<shift>/{<spatie»>19 

8000 In$=" “<shift»/<spatieheb 

8001 Ip$=" “<shift>/Cspatieddd 

8010 printchr$(19)dosl5)itabll4)slnsshift>/<spatie>bo 

8020 printchrs(19)dosl6)stabll4dslnstshiftd/Cspatiedad 

8030 printchr$(19)dosC7)}stablt4)slns<shift>/<spatieda6 

8040 printchr$(19)}dos(B)stabll4dsln#ishift>/{spatie>9f 

8050 printchr$(i9)dosCIdstabllddslnstshift>/Lspatie»84 

8060 printchr$(19ddofliOdstabltd4dslns4shift»/Sspatiedb2 

8070 printchr$Ci9)dosCiidstablladsinstshift>/{spatie>49 

8080 printchrs(lI9)dosli2dstabliddilns‘shift>/<spatied5c 

3090 printchr$(19ddos(13dstabll4dsinstshift>/<spatie>57 

8100 printchr$(l9)dofClid)itabl35)ilnssshift>/Cspatie>6d 

8306 returnéshift»/éspatledc2 
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HEADER-LEZER 


Een handigheidje van Edwin 
Schalk uit Bavel. Het program- 
maatje voor de Vic-20 leest de 


header van een tape uit zonder 
het programma te laden. Elke 
Vic-20 bezitter hoort het in huis 


te hebben volgens onze 
programma-commissie. 


1 PRINTCHRSC147)CHRE(CIBDCHRSC144)"(C) SOFT-SOFTWARE 1985"CHRSC142)CHRSC8) : POKE36 


819,25 
2 PRINT:PRINIT 
RINT 


HEADER-READ DOOR: " :PRINT:PRINT" 


CLR:AS=MIDS(STR$C256XPEEK(O)),2)+" BYTES VRIJ":SYS63680 
LA=PEEK(831) -PEEK(829)+(PEEK(832) -PEEK(830)) 4256, 
IFLA/256>PEEKCO)THENPRINT:PRINT:PRINTCHR$(I144)" TE WEINIG GEHEUGEN!" : END 

2 “5 1SYS63448:PRINTs : PRINTCHR$C13) "LENGTE: "LA"BYTES" 
BE=256XPEEKC(830)+PEEKC829) :EN=2564PEEK(832) +PEEKC8310D E 


PRINTCHRS (144) "NAAM 


PRINT:PRINT"BEGIN 


READY . 


:":BE:PRINT:PRINT"EINDE 


ADMINIESTEN 


Fraai werrkstuk van de heer 
Niesten uit Heemskerk. Het 
gaat hier om een puur boek- 
houdprogramma en niet om een 
zogenaamd budget-programma, 
legt de heer Niesten uit. Het is 
geschreven voor gebruik met de 
C2N datasette en de MPS-802 
printer. Gebruikers van andere 
printers en/of een diskdrive zul- 
len het programma voor eigen 
gebruik moeten aanpassen. De 
listing is overzichtelijk genoeg 
om de plaats van ingrijpen dui- 
delijk te maken. 

Bij het OPSTARTEN van het 
programma wordt in het geheu- 
gen ruimte gereserveerd voor 40 
grootboekrekeningen met elk 16 
maal 4 geheugenplaatsen. De 
eerste 4 bevatten de vaste gege- 
vens zoals nummer, naam, sal- 
do en teller voor het aantal mu- 
taties. Dit zijn — met uitzonde- 
ring van de teller — ook de ge- 
gevens die in het cassettebestand 
kunnen worden opgeslagen. De 
overige 15 maal 4 geheugen- 
plaatsen per grootboekrekening 
zijn bestemd voor de mutaties 
die niet op cassette worden op- 
genomen, De mutaties moeten, 
voordat het programma wordt 


beëindigd, via de printer per 
grootboekrekening worden afge- 
drukt. Na het opstarten ver- 
schijnt het hoofdmenu dat zon- 
der meer voor zichzelf spreekt. 


De IN- EN UITVOER VAN 
EN NAAR CASSETTE spreekt 
ook voor zichzelf. Als u een 
vaste tape voor het bestand ge- 
bruikt, kunt u op de program- 
maregels 1610 en 1930 de tel- 
lerstand van het begin van het 
bestand invullen. Deze ver- 
schijnt dan op het scherm voor- 
dat u gaat inlezen of wegschrij- 
ven. Na de invoer wordt u voor 
de keuze gesteld of u met de 
oude saldi verder wilt of dat u 
deze op nul wilt stellen. 

Voor MUTATIES kunt u kiezen 
voor wijzigen/benoemen van 
grootboekrekeningen of het in- 
voeren van mutaties (betalingen 
en ontvangsten). De grootboek- 
rekeningen zult u in ieder geval 
bij eerste gebruik moeten benoe- 
men (maximaal 12 karakters). 
Daarbij bent u voor 4 rekenin- 
gen gebonden: Ol= bank, 
02=giro, 39= kas en 40= tus- 
senrekening memo (correcties). 
Op deze 4 rekeningen vindt de 


253EN 


tegengestelde boeking plaats van 
elke mutatie die respectievelijk 
met B‚G,K of M worden geco- 
deerd. Na elke mutatie ver- 
schijnt boven in beeld het saldo 
van bank en giro na de laatste 
mutatie. Op deze manier is te 
controleren of de gegevens juist 
zijn ingevoerd. Als het aantal 
mutaties op een bepaalde groot- 
boekrekening de 15 dreigt te 
overschrijden, worden deze eerst 
op de printer afgedrukt voordat 
u verder kunt gaan. 

Het REKENINGSCHEMA 
wordt op het scherm zichtbaar 
gemaakt en kan daarna via een 
screendump-routine na het in- 
drukken van de F5 toets via de 
printen worden afgedrukt. 

De SALDIBALANS geeft via 
de printer netjes per grootboek- 
rekening de saldi en daarna de 
tellingen van de debet- en cre- 
ditkolom. 

Tijdens het invoeren van MU- 
TATIES kan het makkelijk zijn 
om na te gaan wat er inmiddels 
allemaal gemuteerd is, bijvoor- 
beeld om correcties te kunnen 
vaststellen. De geboekte muta- 
ties worden op het scherm zicht- 
baar en kunnen ook via de 


EDWIN SCHALK":PRINT:PRINT:P 


screendump-routine (F5) op de 
printer worden afgedrukt. 

Via de routine UITPRINTEN 
PERIODEMUTATIES wordt 
van elk van de 40 grootboekre- 
keningen een overzicht van de 
ingevoerde mutaties op de prin- 
ter afgedrukt (voor kenners: de 
grootboekkaart). In verband 
met de geprogrammeerde 15 
mutaties (maximaal) en de pa- 
piersoort die de samensteller 
van het programma ter beschik- 
king stond, is de papierlengte in 
regel 4560 geprogrammeerd op 
21 regels. In de kopregel per 
grootboekrekening wordt de 
naam vergroot afgedrukt. Oud 
en nieuw saldo worden eveneens 
automatisch vermeld en in de 
tellingen opgenomen. Deze rou- 
tine mag niet worden overgesla- 
gen omdat de mutaties dan niet 
in het cassette-bestand worden 
opgenomen. 


NB. Op het laatste moment ont- 
vingen we nog een correctie van 
de heer Niesten. In regel 2610 
moet aan het eind goto 2500 
staan. Bij intikken voor deze re- 
gel checksum even uitschakelen. 


10 el&=chr&tlATervi=chriCitdsrof=chrsCid6dsdofechr$CITdsups=chr$CidsiEshiftd sg 


spat ied7c 


1000 renkkkkkkkkkkkkkikkk een programma van hes niesten,heemskerk kktkkikkkkkkk 


<shift>/{<spatie>56 


1010 rem hhtkkkAIkkkkh Ahh kdkk openingsbeeld scherm Aikkhhkktkhhkkktkkkdkkk 


<shift>/{spatie»3l 
1020 
1930 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
e»Ic 


printcl${<shift»/<spatie»4d 
poke 53280,l:poke 53281,i{shift»/{spatied39 
printtabC12) kkk” Cshiftd/espatied2e 
printtab(12)"* adminiesten x"<shiftd/<spatie»dl 
printtab(12) "kkk sdossdossdossdossdossdos<shiftd/<spatie»la 
printtab(13)"administratie"sdof{shift>/{<spatie>65 
printtab(l2)"familie niesten”";sdos{<shift>/<spatiedl5 
odat$="1985"<shift)/<spatiedch 
printtab(13)"boekjaar “right$C(odat$,4)sdossdofsdotsdos#sdos{shift»/{<spati 
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1120 printtabl{l0)"toets voor menu fi°<shiftd/Cspatie>6f 
1139 printtab(7)do$;"daarna even geduld a.u.b."<shift>/Xspatie>lc 

1140 dim r$(40,15,3),os$C4d0l:gato 1190Cshift>/{spatie>19 

1150 get K$:if kö=""then 11504shiftd/{spatied7a 

1160 if k$=chr$(133)then goto 1300Xshift>/<spatie>0l 

1180 goto 11504shift>/éspatie>l4 

1190 for i=0to 4O€shiftd>/éspatied48 

1200 for j=Ôto 15<shift>/{spatie>5d 

1210 prCi,ies0den Terliejdelde arsCi,as2)e"0.00 :rs(i,j,3)="0.00"sosstij= 0. 
OO" Cshift»/{spatie>62 ) 

1220 next j:nextisfr=fre(0)l:goto 11504shift>/<spatie>5a 

1300 rem kAkAAAAAAAAKkkhAk AKA AA AK schermbeeld menu HAkkAkkku KAAK kkk kkk 
kxxCshift>/Cspatiedc5 4 

1310 print cl$éshift>/{spatie>ba9 

1320 printtabllO)kkkkkAAAAKAAAAAAAAKKT Cshiftd/Cspatied3f 

1330 printtab(1i0)"X menu adminiesten X"{<shift>/<spatie>59 

1340 printtabllO)RkkRAAAKA kkk kktkkkk"zdoksdossdosidossdostshift>/<spatie>3f 
1350 print”in- en uitvoer cassette";tab(36)"fl";sdo®{shift>/{spatie>48 

1360 print”invoer mutaties";tab(36)"f3";do${<shift>/<spatie>36 

1370 print"overzichten";stab(36)"f5"sdoféshift>/<spatie>5c 

1380 print'einde”stab(36)"f7";sdo$sdossdo$sdos<shift>/{spatie>7e 

1390 print"wat is uw keuze ?"{shift>/Xspatie>d3 

1400 get a$:if a$=""then 14004shift>/{spatie>7d 

1405 if a$=chr$(139) then 5lOOXshift>/&spatie>7a 

1410 az=asclas)-132:if afl or a>4 then 1400Cshift>/{spatie>eg 

1420 on a geto 1430,2100,3000,5000éshift>/<spatiedff 

1430 rem AkkkAAkAKAKAA kkk AK AK KN ine en uitvoer cassette KkukkkkAAkkA krk k 
kkkCshiftd/<spatied53 

1500 printel$stabl5)rv$s” Xx in= en uitvoer cassette « “sros{shift>/<spatiedb3 
1519 print =eeeeeseeneneeeeeeeeneneeeneeerseenneses"jsdo8sdo8sdo$sdos<shift>/ 
<spatied7a 

1520 print” invoeren"stab(36}"fi";do$:print"uitvoeren"stab(36)"f3"sdos{shift> 
/<spatie>82 

1530 print”terug naar menu”stab(36)"f7"do$sdo$sdo$idoë:print"wat is uw Keuze 
2"<shiftd/<spatie>6d 

1540 get a$:if a$=""then 154O{shift>/{spatie>07 

1550 az=asc{as)=-132:if all or add ora=3 then 1540X<shift>/<spatie>13 

1560 on a goto 1570,1900,1540,1300<shift»/{spatie>62 

1570 rem kkkAAAAAAAKAAAAKA KAAK KAAK invoer Cassette HkkhtkAKAkRA KIK kkk kk kkk 
kkxCshiftd/éspatie>8a 

1600 print cl$:print”het cassettebestand begint”{shift>/Xspatie>54 

1610 print”'op tellerstand .t.“sdo$&shift>/{<spatie>dd 

1620 print'als de teller goed staat toets dan f1"sdo$sdo%sdo8;do8;dossdossdosg 
shift»/<spatie>99 

1630 get a$:if a$=""then 1630:a=ascla%)<shift>/<spatied32 

1640 if a$=chr$(133)then 1660Xshift>/Xspatie>63 

1650 if a${hchr$(133)then 1630Cshift>/{spatiedco 

1660 openl,1,0,"adminiesten 1985"<shift>/{spatie>93 

1670 input#l,odat${éshift»/{spatie»23 

1680 for Î=l to 40{shiftd/Cspatie>7d 

1690 for K=0 to 2shift>/<spatie>42 

1706 input#l,r$Ci,O,k)éshiftd/<spatied7e 

1710 next k:next i: closef<shift>/{4spatie>3b 

1720 for i=l to 40<shift>/Xspatie>55 

1730 os$Cid=r$Ci,O0, 2) Sshiftd/Sspatie>3a 

1740 next i<shift>/{spatie>0l 

1750 printdo$sdo%;s rekeningschema en oude saldi "<shift>/<spatie>0c 

1760 print”zijn nu ingevoerd";sdo$sdo®<shift»/Xspatie>3c 

1770 print'wilt u de beginsaldi "<shift»/éspatie>33 

1780 print’op nul stellen j/n"ssinputjn$éshift>/<spatie>c5 

1790 if jn$="n"then 1850<shift>/Xspatie>04 

1800 if jn$<d"j"then 1770{shift>/{spatiedda 

1810 if jn$="j"then print'even geduld a.u.b."<shift>/<spatie>03 

1820 for i = Ito 404shift>/<spatiedf0 

1830 r$(i,o,2)="0O"soss(il="0.00"Sshift>/Cspatie>06 

1840 next i{shift>/<spatiedfc 

1850 print”terug naar menu toets f1”{shift>/{spatie>dd4 

1860 get a$:if a$=""then 1860<shift>/Xspatie>49 

1870 if a&lchrs(133dthen 186OCshiftd/{spatiedfa 

1880 goto 1300Xshift>/<spatie>dd4 

1900 wem KkkkkAtkkikhAhtekkkkhkkkkdk uitvoer cassette Kkkkktkkik kikker kkk 
kkxCshiftd/Cspatieda0 

1910 print cl$éshift»>/<spatiedc3 
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1920 print "het cassettebestand begint <shift>/<spatie»td 

1930 print'op tellerstand.u.”sdossdos{<shift>/<spatie>34 

1940 print'als de cassette goed staat"{Cshift>/{spatie>Od 

1950 print”toets dan f£l*é<shift»/<spatie>65 

1960 get a$:if a$=""then 1960{shiftò/<spatieda4 

1970 if af>chr$C(133)then 196O4shift>/Cspatie>07 

1980 openl,t,1l,"admintesten 1985"<shift>/<spatie»53 

1990 print®#tl,ndat$&shift>/{spatie»7f 

2000 for i=lto40Xshift>/{spatie)3c 

2010 for k=Ôto 2<shiftd/{<spatieh03 

2020 print#l,r$Ci,O,k)4shiftd>/{spatied23 

2030 next krinext iscloseli{<shift»/<spatie>7a 

2040 printdo$;sdofs"het nieuwe bestand is nu op“sprint'cassette opgenomen"<sh 
ift>/éspatie>94 

2050 printdo$;sdo8;s "terug naar menu toets f1l”£&shift>/<spatiede3 

2060 get af:if af=""then 2060Xshift>/<spatied05 

2070 if a$=chr$(133)then 13004shiftd/<spatied10 

2080 goto 2060Xshift»/<spatie>a5 

2100 rem HkkkhrhRAAA RARA A AAA A AAA AAA KK KKK muteren KAAAAA AAA ARRA AA AAA AN Kk Ak kk 
kkxkCshift>/Cspatiedc9 

2119 printcl$<shift»/<spatie»84 

2120 printtab(l4)rv$s” Xx muteren x "sroséshiftd/éspatiedlf 

2130 print” “sdo$sdo#sdoëtshift>/{spa 
tie>d7 

2140 print"benoemen/wijzigen rekeningnummers" ;tab(35)"fl"sdosidos{4shift»/<sp 
atieddd4 

2150 print”"invoeren mutaties”;tab(35)"f3"sdo$sdoséshiftd/<spatie>ll 

2160 print“terug naar menu"stab(35)"f7"{éshift»/gspatie>79 

2170 get a$:if a$=""then 2170Cshift»/{spatie>73 

2180 a=ascla#)-132:if a<l or a>d then 21704shift»/{<spatiede3 

2190 on a goto 2200,2500,2170,13004shiftd/{spatie»f?2 

2200 rem AkAAAAAAAAAAAAAAK hbenoemen/wijzigen rekeningnummers KKXKKAAKKKKAKKK 
kkkCshift>/<spatied>5c 

2210 printclSXshift>/{<spatie>18 

2220 print”kkbenoemen/wijzigen rekeningnummerskk”<shift»/{spatie»74 

2230 print” “<shift>/<spatie>27 

2240 print*nummer";tab(36)"goed"{<shift»/{<spatiedeg 

2250 print"(2pos)"stab(7)"welke naam“;stab(22)"nieuwe naam"stab(36)"fout" {shi 
ft>/<spatie>fa 

2260 print“00 is “stab(7)"max.15 pos”"stab(36)" g/f"{<shift»/{spatied71 

2270 print”stop"{<shift»/<spatie>57 

2280 printteres tabto) 5 “stabl37) ers? 
<shift>/<spatiedec 

2290 input nr$:in=valtnr$d:if n=0Othen2100<shiftd/<spatie»9d4 

2300 if n>40 then 2290{shiftd/{<spatie)2a 

2310 if vs(n,0,1)427 "then goto 2370éshift»/<spatie,b6 

2320 printtab(5)up$;s:input na${<shift>/<spatie>bl 

2330 printtabl21i)left$(na$,12)<shift>/<spatiedce 

2340 printtab(36)up$#;s:input gf$<shift>/<spatie>bb 

2350 if gf$>"g"then 2200Xshift>/{<spatie>6b 

2360 gosub 2950:r$(n,0,Ol=nr$:r$(n,O,id=leftstnas,12):goto 22004shift»/<spati 
e»f£5 

2370 printtab(6)up$s"bestaande":printtab(6)”naam is"sprinttabl6)rs(n,0,1) shi 
ft>/<spatie)3a 

2380 printtab(6)"wijzigen?j/n"s:input jn${shift>/Cspatieddb 

2390 if jn$="n"then 2200<shift>/<spatiedaf 

2400 if jn$="j"then printtab(6)"naam wordt “;do&:goto 2320{shift>/Xspati ed65 
2500 rem kkAAAAAAAAAARAA AAA K AAA AKKK invoer mutaties HkkAAAA AAA AAA RAAR AK KAK 
kkkACshift>/<spatied67 

<shiftd/<spatie>75 

2510 printcl${éshift>/<spatie»75 

2520 printtab(l3)rv$s"invoer mutaties"sros{shiftd/{spatiedf6 

2530 print” “<shift>/<spatieddf 

2540 print“so bank "r$(1,0,2)s:sb=vallr$(1,0,2)) <shift>/{spatie>00 

2550 printtab(20)"so giro "r$(2,0,2):sg=vallr$(2,0,2))Cshift>/<spatiedb9 
2560 printdo%fseev=ereer nn nennen menemmer"(shiftd/éspatied87 
2570 print“rekeningnummer “Cshift)»/{spatie»82 

2580 input”O0=stop “snr$in=val(nr$)dsif n=0 then 2100Xshift>/{spatied7e 
2590 if n>40 then 2580Xshiftd/{spatiedcee 

2600 if val(rs(n,0,3))<15 then 2620&shift>/<spatie»dl 

2610 b$="afdruk":print"":gosub 4550:r$C(n,0,3)="O"zossCnd=r$Ch,0, 2J:goto25000 
shift»/{spatieda2 

2620 printtab(27)up#isrs(n,0,1)<shift>/<spatie>02 
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2630 input”k/b/g/m “sbgs{<shiftd/{spatieddf 

2640 ifbgs<>”k" and bg$<ò“b” and bg$<ò"g” and bg$<)”m" then 2630Xshift?»/<spat 
ie>dd 

2650 Input”datum (4 pos)”"sdats{shift»/{spatie>8b 

2660 input“omschrijving “jom$<shift>/<spatiedeh 

2670 input”bedrag (=)=ontv."sbes{shiftd/<spatiedf2 

2680 print:print”"zijn deze gegevens juist?”"<shift)>/XspatiedOl 

2690 print"j=fl n=f7"<shift>/<spatie>13 

2700 get a$:if a$=""then 2700<shift>/<spatie>86 

2710 if a$=chr$Ci33)then gosub 2950:goto 2750{shifts/{spatiehaû 

2720 if a$=chr$(136)then print'deze gegevens worden niet verwerkt"{shiftd/{<sp 
atie>27 

2730 print"voer ze opnieuw in" {shiftd/{<spatied50 

2740 for z=0 to 500:next z:goto 25004shift>/<Xspatied20 

2750 if bg$="b"then sb=sb=val(bes):r$(1,0,2)=str$C(sb)shiftd/Cspatiedaf 

2760 if bg$="g"then sg=sg-vallbes):r$(2,0,2J=str$(sg)shiftd/{<spatiedda 

2770 if bg$="k"then r$(39,0,2)=str$lvallr#(39,0,2))-vallbes))shift>/Sspatierd3 
2780 if bg$="m"then r$(40,0,2)=str$lvallr$(40,0,2))-vallbes))Xshiftd/Sspatieddb 
2790 t=vallr$(n,0,3))+iCshift>/<spatied6f 

2800 r$(n,t,O)=bg$:r$(n,t,id=dats:r$(n,t, 2d=om$:r$in,t,3)=besstshiftd/{spatied9l 
2810 if bg$="k"thenp=val(r$(39,0,3))+1:r$(39,p,0l="K":r$C3I,p, IJ=datsSshiftd/ 
<spatie>f8 

2820 if bg$="k"then r$(39,p,2)=r$(n,t,2):r$(39,p, 3)=str$(vallbes)k-ld&shiftd/ 
<spatie>8b 

2830 if bg$="Kk"then r$(39,0,3)=str$(vallr$(39,0,3))+1)<shiftd/{<spatiedd9 

2840 if bg$="m"thenp=val(r$(40,0,3))+t1:r$(40,p,Ol=bgs:r$(40,p, 1)=dats{sshiftd/ 
<spatied79 

2850 if bg$="m"then r$(40,p,2)=r$(n,t,2d:r$(40,p, 3d=strsCvallbes)k-iJshiftd/ 
<spatiedab 

2860 if bg$="m"then r$(40,0,3)=str$(vallr$(40,0,3))+I) Cshiftd/Cspatiedfd 

2870 r$(n,0,2)=str$Clvallrs(n,0,2))tvallbes)d):r$(n,0,3)=str$lt)Sshiftd/<spatie 
>e0 

2880 if val(r$(39,0,3))=15 then n=39:goto 26104shift>/<spatie>2b 

2890 if valtr$(40,0,3))=15 then n=40:goto 2610<shift>/<spatied21 

2900 goto 2500Xshift»/<spatieddi 

2950 remkkkkkkAAAAAAKKAAAASuDroutine voor pieptoon bij invoerkkkkkkkkkkknkdkk 
xkCshift>/<spatiedd2 

2960 poke 54296,15:poke 54278,255:poke 54273,95:poke 54276,17<shift>/<spatie»98 
2970 for zel to tOOsnext zéshift»/{spatiesbe 

2980 poke 54276,0:poke 54277,0:poke 54278,O:returnéshiftd/<spatiedad 

3000 rem AAAAAAAAAAAAAAAAA AAA A AAA KAK AK Overzichten AAAAAAAAAA AAA AA hhh hekken 
*kshift>/<spatied5f 

3010 printcl$<shift>/<spatie>7b 

3020 printtabl12)rv$8;s”® Xx overzichten k"sros{shiftd»/{spatieda7 

3030 print"===eeeeneeeneeneneensensenseessssssesss"sdossdos<shiftd/<spatiedd4d 
3040 print"rekeningschema";stab(35)"fi";do%<shift>/<spatiedba0 

3050 print"saldibalans/printer";stab(35)"f2";sdos<shift»/<spatied86 

3060 print”mutaties per rekening";stab(35)"f3";sdo${<shift>/éspatiede6 

3070 print“uitvoer mutaties/printer"stab(35)"f5";dos{<shiftd/<spatie>b5 

3080 print”terug naar menu”s;tab(35)"f7"sdo$<shift>/<spatie>ll 

3090 printdo$sdof;“wat is uw Keuze?";idosisdoséshiftd/éspatie>86 

3100 get a$:if a$=""then 3100shift»/<spatie>l7 

3110 azasclas)-132:if ad5 then 31004shift»/éspatie»3l 

3120 on a goto 3200,4000,4500,1300,3600Xshift»/éspatie>66 

3200 rem AAAAAAAAAAAKAAAAAAKAKAK overzicht rekeningschema AAAAAAAAAAAAAA AAA AK 
*kCshiftd/{<spatied47 

3210 printcl$:input”wat is de datum (ddmm)”sndat$<shiftd/{spatied9a 

3220 printel$<shiftd/{spatied2a 

3230 printtab(4)"xkrekeningschema d.d."ndat$"xk"<shiftd/{spatie>a8 

3240 print"==ereeeeeeeseneneenerenneneenenessensen="(shift>d/<spatie>00 

3250 for i=l to 20{shiftd/éspatied53 

3260 sprintr$(i,0,0)stab(4)r$(i,0,1)istabl20)rs(i+20,0,0)stabl24)rs(i+20,0, 1D 
shift>/{spatie>92 

3270 next i<shift>/<spatie>Ol 

3275 printtab(1l0)dos$s"terug f1 afdruk f5"<shiftd/<spatie>bb 

3280 get af:If af=""then 3280{shift>/{spatie>d0 

32390 if a$=chr$(135) then open4,4d:gosub 3400&shift>/{spatieddf 

3300 if a$=chr$(133)then 3000Xshift>/Xspatiede7 

3310 goto 3280<shift>/{spatie>62 

3400 wem KikkkktAAAtk ke Ahtdkkkkkddkkk sCreendump Klk tekstdelen kek 
xx<shift>/<spatliedca 

3410 openl,4,1<shift»/<spatie>f4 

3420 printehr$(19):open5, 3tshiftd/Cspatied89 
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3430 za=lpeek(210))256Sshift»/<spatiedb5 
3440 for y=0Oto24:bs=""(shift»/éspatied6b 
3450 for x=Ôto39ras=""(shiftd/{spatied6f 
3460 ifpeek(zzt((yx40dltud)d12/thenget#5,as:bs=b$tchr$(18dtastehrs(l46d:goto5110 
<shiftd/<spatied?7f 
3470 get#5,a$:{<shift>/{spatied47 
3480 if a$=chr$(13)then a$=" "Cshiftd/Cspatied5d 
3490 b$=b$ta$tshift»/<spatiedd2 
3500 next zéshift>/éspatied/b 
3510 print#d,b$Xshiftd/{spatied5d 
3520 next yéshift>/<spatie»16 
print&l,chr$(l2)chr$C1I)Lshiftr/<spatied49 
print#d4,chr$t19)<shifth/<spatied97 
close5:closed:closel:return<shiftd/{<spatiedf7 
vem Hinkkknsnkkkkkkkkkkkkk kkk saldibalans printer kALAAARIRA RAAK 
kk<shiftd/<spatie>bd 
3610 printcl$:input”wat is de datum"sndat$:td=0:te=0{shiftd/<spatied 2e 
3620 open4,4<shiftd/{spatied99 
3630 print#4,chr$(i4)chr$(1l4)"saldikbalans per “ndat$schr$i3ichrsCi3dichrs Cis) 
<shiftd/{spatied65 
3640 for n=i to 40:gosub 3760:if vallr$(n,0,2))<O then 3670Xshiftd/<spatied07 
3650 print#4,rs(n,0,0)schr$(16)"05"r$(n,0,ldschr$(16)"28"rignts(ss,I)NCshiftd/ 
<spatie>68 
3660 td=tdtval(r${(n,0,2)):goto 3690<shiftd/<spatiedla 
3670 print#4,r$(n,0,O)schr$(16)"05*r$(n,0,1)ichrs$(16)" 40"rights(ss,I)shiftd/ 
<spatied72 
3680 te=tetvalrs(n,0,2))shift»/<spatie)89 
3690 next néshift>/<spatieda8 
3700 print#4,chr$(13)ichr#(16)" 28 “<shift>/<sp 
atied13 
3710 z$=str$(td):gosub 4930:td$=s$Cshiftd/<spatiedikh 
3720 z$=str$C(te)l:gosub 4930rtes=ssCshiftd/Cspatieded 
3730 print#4,chr$(16)"28"rights$(tds,9)schrs(16)" 4O"rightsCltes,9)Sshiftr/<spat 
ied2e 
3740 print#4,chr$(16)” 28 “sprint#4,chrs(12)éshift 
>/<spatie>6h 
3750 print#4,chr$(1i9):close4:closeZigoto 3000Lshiftd/Cspatied51 
3760 l$=str$Cint(abs(10Okval(rs(n,0,2))/100))) Lshiftd/<spatieddc 
3770 v=int(l0Oxabs(vallrs(n,0,2)))+.5)<shiftd/<spatie»80 
3780 v$=right$(str$(v),2):ifv=Othenv$="00"<shiftd/<spatieddd 
3790 s$=" Ntl$+"."tvs{shift»/éspatie»9b 
3800 return<shift>/{spatie>58 
4000 rem AkkAAAAAAKKK Overzicht mutaties per rekening op scherm %kkAAAAAAAAKL 
*kACshiftd/Cspatied03 
4010 printcl$s”wat is de laatste mutatiedatum”s:input ndat$<shift>/<Cspatie>8c 
4020 printcl$:td=O:te=0:sn=0:td$=""t:tes=""risn#=""Cshiftd/<spatiedld 
4030 print"welke rekening wilt u zien”:sinput"OO=stop"sn:printcl$<shiftd/{spa 
tie>43 
4040 if n<i or n>40 then 3000&shiftd/éspatied6f 
4050 if n>2 and n<4l then 4170<shift»/Xspatie>69 
4060 if n{=2 then printdo®;do®;"van rekening "r$(n,0,0)" “r$(n,0,1)éshiftd/< 
spatied7d4 
4070 print"worden geen mutaties bewaard"<shiftd/<spatiedlc 
4080 l=len(str$(int(vallos$(n)dd)d+3lshiftd/<spatie)98 
4090 printdo$sdo$"oud saldo "odat$stab(39-l}os$n)<shift>/<spatieddd 
4100 l=len(str8Clint(vallr$(n,0,29))))+3Cshiftd/Cspatied3f 
4110 print”nieuw saldo ":printndat$itab(39-1)r$(n,0,2)éshiftd/<spatie>6d 
4120 print"voor vervolg toets fl":print“voor afdruk printer toets £5" 
<shift>/<spatied2c 
4130 get a$:if af=""then 4130<shift>/<spatie>31 
4140 if a$=chr$(133) then 40204shiftd/{spatied36 
4150 if a$=chr$(135) then b$="afdruk"s;gosub 4550:goto 4020<shift>/<spatie>fi 
4160 goto 41304shiftd/<spatie>df 
4170 printcl$sr$(n,0,0)” "r$(n,‚,0,1)sdossshiftd/<spatieje6 
4180 l=len(str$Cint(vallos$(n)J)))+3:p=30:if valloss(n))<O then p=39shift,/ 
<spatied36 
4190 printtab(7)"oud saldo ":printtab(7)odat#stablp-llos$(n)<shift»/<spati e>34 
4200 if vallos$(n))d=0 then td=td+vallos$(n))Xshiftd/Cspatied7f 
4210 if vallos$(n)}<O then to=tetvallos$(n))d<shift»/<spatie>d5 
4220 if vallr$(n,0,3))=0 then 4310{shift>/{<spatie>3a 
4230 for t=l to val(r$(n,0,3))<shiftd>/<spatie)>9a 
4240 p=30:if vallr$ln,t,3))40 then p=39Xshiftd/{spatie»86 
4250 l=len(str$(int(vallrs(n,t,3))))+3Cshiftd/Cspatiedcd 
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/Xspatiedil 


4260 printtabl0)rs(n,t,0)stabl2rstn,t,1DstablT)lefts(rs(n,t,2),12)sshift> 


4270 printtab(p-1)r$(n,t,3){shift>/Cspatied44 
4280 if vallr$(n,t,3))>=0 then td=tdtval(r$(n,t,3))<shift>»/<spatiedaf 
4290 if vallr$(n,t,3)){0 then te=tetval(r$(n,;t,3))Cshiftd/Cspatied65 
4300 next t{shift>/{spatied0a 


4310 printtabl20)"---==ren 


hift>/<spatie>65 


=stabl30)emervvann “std$=str$(td):tes=strsC(toe)<s 


4320 l=len(str$Clint(valCtds))))+Jim=slen(str$Cint(valltcs)dd+3tshiftd/<spat 


iedee 


4330 printtab(29-1)td#;stab(39-mdtes<shift>/<spatiedSf 
4340 sn$=str$(valltds)t+valltc$))rsl=len(str$Cint(vallsn$))))+3Cshiftd>/{<spati ed14 
4350 if vallsn$)>=0 then printtab(7)"nieuw saldo":printtab(7)ndatss;tab(39-1)s 


n$<shift>/<spatie>5d 
4360 
e>a3 
4370 


if vallsn$)>=0 then te$=str8(vallte$)-vallsn$)):goto 4390<shift>/<spati 


if valtsn$)<O then printtab(7)”nieuw saldo"stab(29-1)sn$<shift>/<spati e>24 
4380 td$=str$(valltd$)-vallsns))<shiftd/SspatiedeB 


4390 pr inttabl20) eesseesen sstabC30) reemeneen “<shift»/<spatie»94 


4400 l=len(str$Clint(val(td$))))+3:m=len(strsC(int(val(tc$)d)d+3tshiftd/<spati 


eid 


4410 printtab{29=-1)td$stabl39-mdtes<shiftd/Cspatied8e 


4420 printtab{20)"===ese=e 





4430 print”voor vervolg 
shift)»/<spatie>/b 


="jtab(30)"===seeese"<shiftd/<spatiedf6 


toets fl":print"voor afdruk printer toets f57£ 


4440 get a$:if af=""then 4440{shift»d/<spatie>48 





4450 
4460 
4470 








if a$=chr$(133)then 40204shift>/{spatied79 
if af=chr$(135)then b$="afdruk":gosub 4550:goto 4020<shift»/{spatie>aa 
if a$=chr8(136)then 13004shift>/éspatied6c 


4480 goto 44404shiftj/<spatie>lc 
4500 rem kkkARAAAKAAK AKA KAAK uitprinten periode-mutaties Akki AAAAAA KAAK AK 








*xCshift>/<spatied73 





4510 printcl$;do$sdo%:dofs"uitprinten periode-mutaties"sdo®sdossdos{<shift>/< 





spatie>5f 













BASF FlexyDisk 5,25”, 
5,25”HD, 8” 

Volledige bedrijfszekerheid nu bij 
twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


4520 print”wat is de datum van de"<shift>/éspatie»48 


BASF FlexyDisk 


BASF FlexyDisk Science 
5,25”, 5,25”HD 

De top-diskette voor gebruik in 
wetenschap en techniek. 


Temperatuurbestendig tot #70°C. 


Volledige oppervlaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 







































































le 


sn 


BASF FlexyDisk 
3.5” 

De diskette met extreem 
hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
uitvoering. 







Fleyxy Disk 


mmm EESDEEBBBRDIIN III 


loer desuizehy, 
Á 





EIS uDsie 


Scenes 


nnn BERDE 


100% certified 


Bedrijfszeker door top-technologie 





BASF Nederland BV, 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


„BASF 


DLS 


FlexyDisk 
85 e 


JOo% cerfied 
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CJ 


4530 input"laatste mutatie (ddmmjj)"indatséshift>/{<spatie>28 

4540 printdo#idofidofs"even geduld a.u.b."éshlft»/<spatie>5b 

4550 openl,4:open3,4,3<shift»/<spatie>f0 

4560 print#3,chr$l27):rem kkkkkAkkkAk bepalen bladlengte op 27 regels kkkkkk 
kxx<shiftd/<spatie>6b 

4570 print#l,chr#id7dsrem KAAAAAAAAAAKAK bladlengte inschakelen AkkkAAAAAAK 
*kktshiftd/Cspatied42 

4580 if b$="afdruk"then 4600{shift>/<spatie>00 

4590 for n= 1 to 404shiftd>/{spatie>13 

4600 te=0O:td=0:td#="0.00":tes="0.00":2$="0.00":5$="0.00" (shift>/<spatie>da 
4610 print#l,chr$Ci4dchrs$Cidrsn,0,0J" Pr$ln,O,idschrsiOlschrstiOdrtshift>/ 
<spatie>bá4 

4620 z=vallos$(n)d:z$=oss(nd:gosub 4930Cshiftr/Sspatied7d 

4630 ifz<Othen print#&l, "oud saldo d.d. “"odat$ichr$(16)"50"s$<shift>/{spati eded 
4640 ifz<Othen te=tetvalls$):goto 47104shift>/Cspatie>dd 

4650 print#l,”oud saldo d.d. “odat$schr$(16)"35"s$:tdetd+valtss)<shift>/<sp 
atie>b6 

4660 if n>2 then 4710{shiftd/{spatiedc5 

4670 z$=str$(vallrs(n,0,2))-vallossn))):z=vallz$):gosub 4930Cshift>/Cspati e>13 
4680 if z{0 then 47004shiftd/éspatiedac 

4690 print#1,"saldo mutaties"ichr$(16)"35"s$:td=tdtvalls$):goto 4780Xshift>/< 
spatiehl4 

4700 print#l,”"saldo mutaties"schr$(16)"50"s$:te=tetvalls$):gote 4780Xshift>/< 
spatie>l9 

4710 if vallr$(n,0,3))=0 then print#l,”geen mutaties":goto 4780Cshift>/<spati 
e»36 ] 

4720 forx=lito vallr$(n,0,3)):zs$=r$(n,x,3d:gosub 4930Cshift>/Cspatied7f 

4730 z=val(z$d:if zZCO then 4760Xshift>/<spatie>f0 

4740 print#l,r$(n,x,Olschr$(16)"04"r$ln,x,idschr$Ci6)"1O0"r$(n,x,2)s<shiftd/ Cs 
patied7f 

4750 print#l,‚chr$(16)°"35"s$:td=tdtvalts$)inext x:goto 4780Xshift>/<spatie>60 
4760 print#l,r$(n,x,Odschr$(16"04"r$(n,r,idschr$16d"10"rsn,r,2ds<shiftd/gs 
patie>63 

4770 print#l,chr$(16)"50"s$:te=tetvalls$)dinext x<shift>/Cspatiedf7 

4780 print#l,chr$C16)"35 SsChLsSCIG) 'SOrevmmnmeen “<shift>/<spatie»03 
4790 zi=str$Ctd):gosub 4930:tdt=s$Cshift>/Cspatiebcf 

4800 z$=str$(te)l:gosub 4930:tes=ss$Cshift>/Cspatie>b9 

4810 print#l,chr$(16)"35"td$schr$(16)"50"tes{shiftd/<spatie>62 

4820 z#=r$(n,„0,2):gosub 4930:if vallr#ln,0,2))4=0 then 4840X<shiftd/<spatie»58 
4830 print#l,"nieuw saldo d.d. “ndat$ischr$(16)"50"s$:te=tervalls$}igoto 4850 
shift»/{spatiede5 

4840 print#l,”nieuw saldo d.d. “"ndat$ichr$(16)”35”"s$:td=td-val(ss)Cshift>/Csp 
atie>6a 

4850 print#l,chr$(16)" 35 “schr$(16)"50 “&shiftd/{spatie>5d 
4860 z$#=str$Ctd)igosub 4930:td$=ssSshiftd>/<spatie>85 

4870 z$=str$C(te)l:gosub 493Ortes=ssLshiftd/Clspatied7e 

4880 print#l,chr$(16)"35"td$ichr$(16)"50"tes<shift»/{Cspatie>b9 

4890 print#l,chr$(16)"35 “ichr$16)"50 "<shift>/{<spatie>b4 
4900 print#t,chrs(12):ifb$="afdruk"thenbs="klaar":close3:closel:sreturn<shift> 
/<spatie»8d 

4910 next néshift>/{spatiedfl 

4920 close3:closel:goto 30004shift»/{spatieda3 

4930 rem kAAAKARAAAAKAKK subroutine voor printen getalstrings AkkAhAAAAkAkAAAR 
k*Cshift»/<spatie»87 

4940 I$=str$CintlabsClOOkval(z$)/100)))Cshift»/<spatiedf8 

4950 if val(z$)<O then 1$="="+I${éshiftd/Cspatie>65 

4960 v=int(10Okabs(vallz$))+.5):vs=rights(str$(ud, 2dsif v=0 then v$="00"{Cshif 
t>/<spatiedbf 

4970 ss$=" S+I$+"."tvets$=rights(ss$, 1O):returnéshift>/Cspatiedfb 

5000 printel&:endéshiftd/éspatie>93 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot e 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks © 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 80 tekens per S e 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt 


overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 











adres. Adviesprijs Í 695,- ex. btw. BROTHER INDUSTRIES LTD., NAGOYA/JAPAN 

BON: ER CDA okt. Ì 
a Ik wil meer informatie over de HR-5. 

Naam: 

Adres: 

Postcode: Plaats: 








Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. 





Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-4744 


Brother Industries Ltd. Nagoya, Japan. 








VEER IE 








PC 





De IBM compatible 
voor een ongeloof 


lage prijs. 


f. 5.699,- 


EXCL. B.T.W. 





rr 




































































































































































































































































































































































De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor. 











De nieuwe Commodore PCis een zeer krachtige 
16 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt, Daardoor beschikt u 
over honderden programma's die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 16 bits processor ® 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
® Dubbel diskette station, 2 x 320/360 Kbe High- 
resolution monochrome monitor, groen® ASCII 
toetsenbord ® Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl, B.W. (diskette station 
| x 360 Kb en | x IO Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde Cz 
Commodore Systeemdealers, eN 
Of vraag documentatie met de |__ commodore 

Daar wordt een mens wijzer van 





coupon. 





| Ja, stuur mij de complete 
CO U PO N documentatie over de nieuwe 
Commodore PC. 
Naam bedrijf 





Contactpersoon 


Adres 








Telefoon 





| 


Functie 





Handtekening 


Zend de coupon in een gefrankeerde envelop aan: | 
| Commodore BM, Postbus 8192, 1005 AD Amsterdam | 


| 

| 

| 

7 

| Postcode/Plaats 
| 

| 

| Toepassing 


Alkmaar Accom BV, Verdronkenoord 28, tcl. 
072-1122412. Alphen a/d Rijn Hermes HCS. BV, 
Koperweg 35, tel. O1/20-35079. Amersfoort Acto 
BV, Amsterdamseweg 53, tel. 033-621/24. Am- 
sterdam A.K.G. Micro Systemen, Dam 2/, tel. 020- 
272266. Bocaraton BM, Schepenbergweg |6, 
tel. 020-970751. Heisterkamp & Partners BM, 
Stadhouderskade 2, tel. 020-1634129. Jon Kee 
Groep. Thorn Prikkerstraat 50, tel. 020. 170806, 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BV, P. Callandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler Computer 
Partners, Graaf Janstraat |, tel. 02510-29171, Bode- 
graven MMS BV, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan BV. Hoofdstraat 156, tel. 
02285-11628. Breda Indelec BV, Wilhelminastraat 
44, tel. 076-142333. Doetinchem Egberts Software 
BV, Houtsmastraat 150, tel. 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat | 19, tel. 
03438-21051. Eindhoven L+T International BV, 
Winkelcentrum Woensel 84, tel. 0040-411425, 
Reyers, Willemstraat 3, tel. 040-522888 Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BM, Leitswei 9, tel. 051 33- 
4400. ‘s-Gravenhage A.S.O., Frederikstr. 76, tel. 0/0- 
650348. Datacom, Oranjestr. 7, tel. 0/0 - 655812, 
Info Computercentrum, Noordeinde 101, tel. 070- 
646830. Logic Data, Rijswijkseweg 3|, tel. 0/0- 
887328. Groningen Incap BM, Peizerweg 68, tel, 
050-120603. Harderwijk Microsign BM, Verkeers- 
weg 53, tel, 03410-20004, Ridero Computerhouse, 
Hierdenseweg 16-18, tel. 03410-12984, Hard. 
Giessendam C.A.B. Holland BV, Peulenstraat 55, 
tel. 01846-6638. Heeswijk Dinther Heisterkamp & 
Partners, Brouwerstraat 15, tel. 04139-2818. Hel- 
mond Automatiserings Advies Centrum, Hortsedijk 
37, tel. 04920-47775. Hendrik ldo Ambacht [roost 
Systemen Centrum, Veersedijk 63, tel. 01858- 
17022. Hengelo Heisterkamp & Partners, Willem- 
straat 67, tel. 074-437992. ‘s-Hertogenbosch Malm- 
berg Fysica, Beverspijken 5, tel. 0/3-215565. 
Hilversum Computerworld, Hilvertsweg 99, tel, 
035-12633. Hoevelaken System Design Nederland 
BM, Oosterdorpstraat 166, tel. 03495-3/100. 
Hoofddorp W & L Automatisering, Concoursbaan 
lb, tel. 02503-31890. Hoorn Compuregio, Nieuwe 
Steen 6, tel. 02290-32624. Kerkrade Comser 
Systems BV, Old Hickoryplein 4, tel. 045-462665. 
Laren Inter Access Systems BV, Naarderstraat 66, 
tel. 02153-13000. Maarssenbroek Perce Computers 
BV, Planetenbaan 2, tel. 03465-66066. DeMeern 
Aton Services BV,, Strijkviertel 33, tel. 03406-3944. 
Middenbeemster Cryoson Hi-Tech, Rijperweg 40, 
tel. 02998-1670. Oegstgeest K.P.D., Rhijngeester- 
straatweg 58, tel. 071-1/1041. Raalte Combo BM, 
Deventerstraat 43, tel. 05720-54772. Ridderkerk 
Computer Centrum Randstad, St. Jorisstraat 3, 
tel. 01804-27878. Roermond Info 80, Minderbroe- 
dersingel 30a, tel. 04750-17520. Rotterdam A.C.C., 
Groothandelsgebouw A, 5e et tel. 010-128640, 
Computerworld, Keerweer 99, tel. 010-137823. 
Confi Personal Computing, Vasteland 28, tel. 010- 
146941, Deltacom Informatiesyst. BV, Koperstraat 
30, tel. 010-552555. Faab Software, Schiedamsedijk 
6/a, tel. 010-3320/7. Heisterkamp & Partners, 
Statenweg 39, tel. 010-66/933. Kraan Bouwcompu- 
ting, Weena 128, tel. 010-136950. MMS Compro- 
shop BV, Westblaak 15, tel. 010-132813. Rijswijk 
Biasc Computer Systems BM, Bruyn Kopsstraat |2- 
14, tel. 070-900100. Sneek Stercom BM, Mr. 
C.P.M. Rommestraat 6, tel. 05150-23885. Soest 
Advisie BM, Vredehofstraat 13, tel. 02155-11434. 
Utrecht Heisterkamp & Partners, Oude Noord 
LLL “tel. 030-322633. Techmation/Crest B.V, Savan- 
nahweg 35, tel. 030-420122. Valkenswaard Cosmos 
Computer Service BV, Valkenierstraat 2, tel. 
04902-17940. Veendam Infocient, Eems 18, tel 





| 05987-16018. Yzendoorn MBM Microsystemen, 
Keizerstraat 9, tel. 03444-3232. Zaandam Micro- 
plus, Zomerdijk 31, tel. 0/5-35131 |. Zeist Compute 
Zeist BV, 2e Hogeweg 123, tel. 03404-25252, 
Zwolle BS.G. Nederland BV, Diezerplein 26, 
tel. 038-548855, 





COMMODORE 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van AKE op 
regels van 2 


hoogste 
IK ZOEK SOFTWARE 


® Ik zoek het boek ‘The Hackers’s Hand- 


book’ van Hugo Gornwall gelieve mij het 
adres te geven van winkels waar ik het 
boek vinden kan (als het kan in Belgie). 
Adres: Peter Nardulier, Prins Boudewijn- 
laan 138, 2520 Edegem, Belgie. Tel. 
03-4575786. 


® Ik zoek spelletjes zoals soloflight, kaa- 


la painter enz. (CBM-64). en progr. voor 
sharp MZ-700. 20 nodig tegen ver- 
goeding. 


© Wie heeft een BBS prg. 1200/75 
baud. 

Tel. 03240-33820 na 18.00 u. H. Vree- 
ken Zoetermeerpad 4, 1324 VJ Almere. 


@ Ik zoek het spel Renaissance van 
Louis & Savain. Katalog nr. SSO49 tegen 
goede hilng voor de cmb64 op cas. of 
disk De Telder, Mozartstr. 13, 2018 Ant- 
werpen. 


© Student zoekt boekhoudprogramma 
voor CBM 64. Contacteer: Kinders P., 
Wielstraat 31, 9160 Hamme, België 


@ Wie bezorgt mij het onlangs uitgezon- 


ave, Een advertentie mag ten 
aanslagen lang zijn. — 


den genetica programma van habbyscoop 
voor CBM 64, Claessens Georges , Ispra- 
laan 5, 2400 Mol, België. 


© Wie kan mij helpen aan de spelletjes 
airwolf en submarine commander voor de 
comm. 64. Veel ruilprog. bel 
02993-68478 na 17.00 uur. 


® C-64 assembler op disk. of cassette. 
Tegen vergoeding. Tel. 05221-1792. 


© Tom Ceelen, Kloosterlaan 21, 3500 
Hasselt, Belgie zoekt een programma voor 
op commodore 64 logo te programmeren. 
Dank bij voorbaat. tel. 011/272183 
(Belgie). 


© Ik zoek spelen voor de C-128. Stuur 
mij je lijst. R. de Vogel, Slyckershorn 
13,1534 NW Oost-Knollendam. 


® Zoek voor Vic 20 telex/morsedecoder 
+ 8K Ram. Schrijven aan: L. Zywicki, 
Achter den Winkel 240, 6372 RS 
Schaesberg.(L). 


@ Wie kan mij soloflight, Airline, Flightsi- 
mulator Il, of Walt Street cass. leveren? 
Ik kan ook veel software ruilen. Stuur je 
lijstje naar: Rene Hage, Rubenstraat 39, 
3351 JT Papendrecht. 


WEES BLIJ DAT HET EEN SPELLETJE IS! 


De Sekte.. 


IK ZOEK HARDWARE 


©® Commodore-64 1541-diskdrive zo 
goedkoop mogelijk. Schrijf naar S. Fran- 
cen , Wijchmaalsenbaan 36, 3588 
Hecktel-Eksel, België. 


® Ik zoek printer voor c-64. Liefst mps- 
801 of 803 aanbieding en prijsopgaven 
naar Hendrikslaan 29, 1944 RJ Beverwijk 
tel. 02510-40832. 


® Gezocht: goedkope thermische printer 
geschikt voor GBM 64. Tel. 056/715205. 
Adres: Grote Heerweg 115, 8749 Beve- 
ren Leie, België. 


® Wie kan mij helpen aan een schema 
om een klavier aan te sluiten op een 
C642 Ik wil ook een vergoeding betalen 
voor een goed aansluitschema. 

H.v.d. Ende, Hoofdstraat 126, 9915 PH 
Het Zandt (Gr). 


IK BIED HARDWARE 
EN SOFTWARE AAN 


@ CBM-64 + sciento monitor +nw 
1541 /04 handle diskd + prgr's + zgan: 
f 1500,- Ron Dodemont tel. 080-224601, 
Madoerastr. 15, Nijmegen tussen 18.00 
en 20.00 uur bereikbaar. 


© Te koop: vic-20 + 16k + resetknop 
+ software + ned. handl. + 1 boek + 
stofhoes. f 425,- RJ. Kabbedijk, Baars- 
veen 538, 3205 BT Spijkenisse.Tel. 
01880-40288. 


® Te koop: Tape-Queen 10/20 snel incl. 


tapedir+-supercopy 1 mnd. oud slechts 
f 10,- te ruil: software CBM-64 ca 800 


100 m? spel 


programma’s (cas + disk) Bel: 
1053-317076 


© C-64 4 1541 + GP100VC printer + 
rec + monit. 7502 + 2304 + softw. 
Büxdisk + 6x tape + 1200 pr. o.a, 
tekstvw’s, superb, comp’s account. 
flightsim e.v.a. + doc’s. f 2500,- tel. 
01854-3556. 


@ Org. CBM software op tape CAD CAM 
f25,-,IND. JONES f25,-, SPEECH SYN 
{10,-, DECATHLON f25,-, 1 koop f 68,-. 
Bel: 08355-1727 (ERIK) 


® Seikosha GP100 (drukker) 4 mnd 
fA15,-vie + 16k + 2 slots expansie- 
bord f 400,- tekstverwerker Quick Brown 
fox + handl. f 185,- Henkens, J.J.G.M. 
Gr. Hornelaan 11, 6001 AA Weert, 


® Lichtpen voor CBM-64 met software 
f 62,50 tevens kan ik diverse emprom’s 
programmeren. Ook software te ruil. 
Schrijf naar: R.F.H. Paap Schouw 34-27, 
8232 DG Lelystad. 


® Te koop: VIC-20 computer + 
Ned.handi. / CW-RTTY decoder. 
converter/Orig. Moederbord VIC-1020 pro- 
grammer’s Aid VIC -1212 uitbreiding 16 k 
Ram schakelb. uitbreiding 8 k Ram scha- 
kelb. 3 VIC-20 boeken + veel software. 
Alles in 1 koop f 1000,- (af huis). J. Hui- 
zingba, PA3AIH Schubertlaan 23, 9402 
VB Assen, tel. 05920 — 40210. 


IK WIL RUILEN 


® Ja, ik wil software ruilen. Heb 100 pro- 
gramma's en zoek Bioritme programma’s 
voor CBM 64. Tel. 05913-13477. Bel na 
4 uur, liefst vrijdags. 





- 5OO schermen 


een technisch hoogstandje van RadarSoft* 


vernieuwende superkwaliteit van RadarSoft* 


Een absolute topper. 

Een echt Arcade-avontuur 
dat alleen door de aller- 
besten en de allerslimsten 
tot een goed einde kan 
worden gebracht. 


ZENUWSLOPENDE 
SPANNING, HYPER-STRESS 
EN PURE LOGICA! 

EEN LUGUBER SI UK 
SOFTWARE DAT ZELFS DE 
HAREN VAN DE ZWAARST 
BEPROEFDE AVONTURIER 
OVEREIND ZAL KRIJGEN 


EEN NEDERLANDSTALIGE 
GRAFISCHE 
ELEKTRONISCHE ROMAN met 


- 500 schermen smooth scrollend 
gevaar 
- 100% machinetaal… 62K 


©) 


Ae ET ele ENE Ls EELS 
VKO EN eer TENG 
Europa/Wereld - Tempotypen - Rekenwonder 


BIKE CI CEE ee Elle RDE lek 
- Steen der Wijzen - Tijdreiziger - Anonimus 
=Horror Hotel Nautilus - Zone 7. 


Andere kwaliteitsprogramma’s.van) 
RadarSoft voor uw CBM64 zijn: 

„ De grotten van Oberon - Eindeloos: 

- Topografie Europa/Wereldidiv. landen 
Cie ecn en eld 
BEET ete lele jef ilenkfo) 
…Databasic - Steen der Wijzen. 5 

= Tijdreiziger - Anonimus „Horror Hotel. 
- Nautilus Zone 7. 


RADAR 


verkrijgbaar bij de off. RadarSoft dealers o.a. Vroom & Dreesman, Dixons, Verkrijgbaar bij de off. RadarSoft dealers o.a. Vroom & Dreesman, Dixons, Fotoquelle eva. 


Lee ICR 
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GREATEST 
HITS VAN 

PROMPT 
SOF TWARE. 


Prompt Software: leverancier bij uit- met PROMPT BOEK, schaf dan binnenkort 'n 
stek van betaalbare zakelijke software voor doosje met tien SM-diskettes aan. Daarin vindt 
microcomputers, met name voor unamelijk’n gratis demonstratie-programma. 
Commodore en Atari. Wilt u meer weten over deze aktie, 

Eén van de meest succesvolle pro- bel dan 3M Nederland BV: 071-4500450. 
gramma's is ongetwijfeld PROMPT BOEK. Dit 
doordachte boekhoudprogramma 
bestaat uit een volledig basisdeel 
en vier eventueel later aan te schaf- 
fen uitoreidingsprogramma's voor 
oa. verlies- en winstrekening, 
balans, BTW-aangifte en crediteu- 
ren-administratie. 

Wilt u gratis kennismaken 










































demonstratie diskette 
PROMPT BOEK 





REP 


ze PSS 








Ataris een gedeponeerd handelsmerk van Alan Garporatons vs. 
Commedore iseen gedeponeerd handelsmerk van. G anode 
Business Machines, 




















tt! 


© 
schakelprinciP 
met 166 2 
re ge gugen WET“ 
MA of spelte 


® 
die volt ì Comme 
@ EN in staat is ELK 
 NDERBREKEN en weer te VERVOLGEN! (PAUZE 
Nm: met eef grafisch euze-ment dat vanuit ELK 
Aof spel is aan te roepen! 
die vanuit ELK PROGRAMMA of spe! een 
sie printer heeft 








® 
PROGRAMM 
© 
H DCOPY van het scherm kan maken. 
idge ziet zelf of U een atronie® ot een gerieële P 
nz r het adres van LHIRES plaatje 
derbroken programm giteraard 





\e andere EPSON 
nieerde k akters- 
ops rieële pril" 


En ve 
„ _OOKZE 








8 staat. 
jeden té pekijken 





DE POW 
ER CAR 
TRIDGE 
IS VERK 
RIJGBAAR BĲ DE MEES 
TE COM 
MODO 
RE DEAL 
ERS. 


Heeft u 
geen dealer i 
er in uw Oo 
mgevin 
5, dan ku 
ntu ook be 
stellen 
BANK: AMRO 44 ie overmaking v 
Pasa PORTER hethedrag plus 
: 3793232 sf. 5,- verzend 
kosten 
of onde 
r rembour: 

S. 


Mm CIT 
UI IMM 
LEF COMPLTER SLIP 
ER SUPPLIES 

md bl Simon Vestdijk Erf 1 

Telefoon eed Dordrecht 





